SMTP-SSL邮箱发信完整包 - 精易论坛

子程序名	返回值类型	公开	备注
GetCommand

变量名	类型	静态	数组	备注
Header	文本型
i	整数型

Separator ＝ “----=_Part_” ＋取数据摘要 (到字节集 (Sender_ ＋时间_取现行时间戳 ()))
AddCommand (“HELO sendmail” ＋ #换行符, 250)
AddCommand (“AUTH LOGIN” ＋ #换行符, 334)
AddCommand (Username_ ＋ #换行符, 334)
AddCommand (Password_ ＋ #换行符, 235)
AddCommand (“MAIL FROM: <” ＋ Sender_ ＋ “>” ＋ #换行符, 250)
Header ＝ “FROM: <” ＋ Sender_ ＋ “>” ＋ #换行符

如果 (取数组成员数 (Receiver_) ＝ 1)

AddCommand (“RCPT TO: <” ＋ Receiver_ [1] ＋ “>” ＋ #换行符, 250)

Header ＝ Header ＋ “TO: <” ＋ Receiver_ [1] ＋ “>” ＋ #换行符

如果真 (取数组成员数 (Receiver_) ＞ 0)

计次循环首 (取数组成员数 (Receiver_), i)

AddCommand (“RCPT TO: <” ＋ Receiver_ [i] ＋ “>” ＋ #换行符, 250)

计次循环尾 ()

Header ＝ Header ＋ “TO: <” ＋数组_合并 (Receiver_, “>,<”) ＋ “>” ＋ #换行符

如果 (取数组成员数 (CC_) ＝ 1)

AddCommand (“RCPT TO: <” ＋ CC_ [1] ＋ “>” ＋ #换行符, 250)

Header ＝ Header ＋ “CC: <” ＋ CC_ [1] ＋ “>” ＋ #换行符

如果真 (取数组成员数 (CC_) ＞ 0)

计次循环首 (取数组成员数 (CC_), i)

AddCommand (“RCPT TO: <” ＋ CC_ [i] ＋ “>” ＋ #换行符, 250)

计次循环尾 ()

Header ＝ Header ＋ “CC: <” ＋数组_合并 (CC_, “>,<”) ＋ “>” ＋ #换行符

如果 (取数组成员数 (BCC_) ＝ 1)
AddCommand (“RCPT TO: <” ＋ BCC_ [1] ＋ “>” ＋ #换行符, 250)
Header ＝ Header ＋ “BCC: <” ＋ BCC_ [1] ＋ “>” ＋ #换行符

如果真 (取数组成员数 (BCC_) ＞ 0)

计次循环首 (取数组成员数 (BCC_), i)

AddCommand (“RCPT TO: <” ＋ BCC_ [i] ＋ “>” ＋ #换行符, 250)

计次循环尾 ()
Header ＝ Header ＋ “BCC: <” ＋数组_合并 (BCC_, “>,<”) ＋ “>” ＋ #换行符

Header ＝ Header ＋ “Subject: =?UTF-8?B?” ＋ Subject_ ＋ “?=” ＋ #换行符

如果 (Type)

Header ＝ Header ＋ “Content-Type: multipart/alternative;” ＋ #换行符

Header ＝ Header ＋ “Content-Type: multipart/related;” ＋ #换行符
Header ＝ Header ＋ “MIME-Version: 1.0” ＋ #换行符
Header ＝ Header ＋ “Content-type: multipart/mixed;boundary=” ＋ #引号＋ “--=bacd” ＋ #引号＋ #换行符
Header ＝ Header ＋ #换行符
Header ＝ Header ＋ “----=bacd” ＋ #换行符
Header ＝ Header ＋ “Content-type: multipart/alternative;boundary=” ＋ #引号＋ “--=bacd11251” ＋ #引号＋ #换行符
Header ＝ Header ＋ #换行符
Header ＝ Header ＋ “----=bacd11251” ＋ #换行符
Header ＝ Header ＋ “Content-Type:text/html” ＋ #换行符
Header ＝ Header ＋ “Content-Transfer-Encoding: base64” ＋ #换行符＋ #换行符
Header ＝ Header ＋ #换行符
Header ＝ Header ＋ Body_ ＋ #换行符
Header ＝ Header ＋ “----=bacd11251” ＋ #换行符
Header ＝ Header ＋ #换行符

计次循环首 (取数组成员数 (Att_), i)

Header ＝ Header ＋ “----=bacd” ＋ #换行符

Header ＝ Header ＋ “Content-Type: application/octet-stream;charset=” ＋ #引号＋ “gb2312” ＋ #引号＋ “;” ＋ “name=” ＋ #引号＋ Att_ [i].name ＋ #引号＋ #换行符

Header ＝ Header ＋ “Content-Disposition: attachment; filename=” ＋ #引号＋ Att_ [i].name ＋ #引号＋ #换行符

Header ＝ Header ＋ “Content-Transfer-Encoding: base64” ＋ #换行符

Header ＝ Header ＋ #换行符

Header ＝ Header ＋编码_BASE64编码 (Att_ [i].Body) ＋ #换行符

Header ＝ Header ＋ #换行符

计次循环尾 ()
Header ＝ Header ＋ “----=bacd--” ＋ #换行符
Header ＝ Header ＋ #换行符＋ “.” ＋ #换行符
AddCommand (“DATA” ＋ #换行符, 354)
AddCommand (Header, 250)
AddCommand (“QUIT” ＋ #换行符, 221)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br />
.支持库 dp1<br />
<br />
.子程序 GetCommand<br />
.局部变量 Header, 文本型<br />
.局部变量 i, 整数型<br />
<br />
Separator ＝ “----=_Part_” ＋ 取数据摘要 (到字节集 (Sender_ ＋ 时间_取现行时间戳 ()))<br />
AddCommand (“HELO sendmail” ＋ #换行符, 250)<br />
AddCommand (“AUTH LOGIN” ＋ #换行符, 334)<br />
AddCommand (Username_ ＋ #换行符, 334)<br />
AddCommand (Password_ ＋ #换行符, 235)<br />
AddCommand (“MAIL FROM: <” ＋ Sender_ ＋ “>” ＋ #换行符, 250)<br />
Header ＝ “FROM: <” ＋ Sender_ ＋ “>” ＋ #换行符<br />
.如果 (取数组成员数 (Receiver_) ＝ 1)<br />
    AddCommand (“RCPT TO: <” ＋ Receiver_ [1] ＋ “>” ＋ #换行符, 250)<br />
    Header ＝ Header ＋ “TO: <” ＋ Receiver_ [1] ＋ “>” ＋ #换行符<br />
.否则<br />
    .如果真 (取数组成员数 (Receiver_) ＞ 0)<br />
        .计次循环首 (取数组成员数 (Receiver_), i)<br />
            AddCommand (“RCPT TO: <” ＋ Receiver_ <i> ＋ “>” ＋ #换行符, 250)<br />
        .计次循环尾 ()<br />
        Header ＝ Header ＋ “TO: <” ＋ 数组_合并 (Receiver_, “>,<”) ＋ “>” ＋ #换行符<br />
    .如果真结束<br />
<br />
.如果结束<br />
<br />
.如果 (取数组成员数 (CC_) ＝ 1)<br />
    AddCommand (“RCPT TO: <” ＋ CC_ [1] ＋ “>” ＋ #换行符, 250)<br />
    Header ＝ Header ＋ “CC: <” ＋ CC_ [1] ＋ “>” ＋ #换行符<br />
.否则<br />
    .如果真 (取数组成员数 (CC_) ＞ 0)<br />
        .计次循环首 (取数组成员数 (CC_), i)<br />
            AddCommand (“RCPT TO: <” ＋ CC_ <i> ＋ “>” ＋ #换行符, 250)<br />
        .计次循环尾 ()<br />
        Header ＝ Header ＋ “CC: <” ＋ 数组_合并 (CC_, “>,<”) ＋ “>” ＋ #换行符<br />
    .如果真结束<br />
<br />
.如果结束<br />
.如果 (取数组成员数 (BCC_) ＝ 1)<br />
    AddCommand (“RCPT TO: <” ＋ BCC_ [1] ＋ “>” ＋ #换行符, 250)<br />
    Header ＝ Header ＋ “BCC: <” ＋ BCC_ [1] ＋ “>” ＋ #换行符<br />
.否则<br />
    .如果真 (取数组成员数 (BCC_) ＞ 0)<br />
        .计次循环首 (取数组成员数 (BCC_), i)<br />
            AddCommand (“RCPT TO: <” ＋ BCC_ <i> ＋ “>” ＋ #换行符, 250)<br />
        .计次循环尾 ()<br />
        Header ＝ Header ＋ “BCC: <” ＋ 数组_合并 (BCC_, “>,<”) ＋ “>” ＋ #换行符<br />
    .如果真结束<br />
<br />
.如果结束<br />
Header ＝ Header ＋ “Subject: =?UTF-8?B?” ＋ Subject_ ＋ “?=” ＋ #换行符<br />
.如果 (Type)<br />
    Header ＝ Header ＋ “Content-Type: multipart/alternative;” ＋ #换行符<br />
.否则<br />
    Header ＝ Header ＋ “Content-Type: multipart/related;” ＋ #换行符<br />
.如果结束<br />
Header ＝ Header ＋ “MIME-Version: 1.0” ＋ #换行符<br />
Header ＝ Header ＋ “Content-type: multipart/mixed;boundary=” ＋ #引号 ＋ “--=bacd” ＋ #引号 ＋ #换行符<br />
Header ＝ Header ＋ #换行符<br />
Header ＝ Header ＋ “----=bacd” ＋ #换行符<br />
Header ＝ Header ＋ “Content-type: multipart/alternative;boundary=” ＋ #引号 ＋ “--=bacd11251” ＋ #引号 ＋ #换行符<br />
Header ＝ Header ＋ #换行符<br />
Header ＝ Header ＋ “----=bacd11251” ＋ #换行符<br />
Header ＝ Header ＋ “Content-Type:text/html” ＋ #换行符<br />
Header ＝ Header ＋ “Content-Transfer-Encoding: base64” ＋ #换行符 ＋ #换行符<br />
Header ＝ Header ＋ #换行符<br />
Header ＝ Header ＋ Body_ ＋ #换行符<br />
Header ＝ Header ＋ “----=bacd11251” ＋ #换行符<br />
Header ＝ Header ＋ #换行符<br />
.计次循环首 (取数组成员数 (Att_), i)<br />
    Header ＝ Header ＋ “----=bacd” ＋ #换行符<br />
    Header ＝ Header ＋ “Content-Type: application/octet-stream;charset=” ＋ #引号 ＋ “gb2312” ＋ #引号 ＋ “;” ＋ “name=” ＋ #引号 ＋ Att_ <i>.name ＋ #引号 ＋ #换行符<br />
    Header ＝ Header ＋ “Content-Disposition: attachment; filename=” ＋ #引号 ＋ Att_ <i>.name ＋ #引号 ＋ #换行符<br />
    Header ＝ Header ＋ “Content-Transfer-Encoding: base64” ＋ #换行符<br />
    Header ＝ Header ＋ #换行符<br />
    Header ＝ Header ＋ 编码_BASE64编码 (Att_ <i>.Body) ＋ #换行符<br />
    Header ＝ Header ＋ #换行符<br />
.计次循环尾 ()<br />
Header ＝ Header ＋ “----=bacd--” ＋ #换行符<br />
Header ＝ Header ＋ #换行符 ＋ “.” ＋ #换行符<br />
AddCommand (“DATA” ＋ #换行符, 354)<br />
AddCommand (Header, 250)<br />
AddCommand (“QUIT” ＋ #换行符, 221)