SMTP-SSL邮箱发信完整包

opphk

那个dll巨坑，emmm版本不匹配用不了，服务器用不了，

year1970

感谢分享

xukaiz

无敌灰灰 发表于 2024-12-11 10:04
感谢分享，目前在用E2EE的发邮件。。。。

这个组件，只有SSL是额外写的，其他都是源码，

xukaiz

gdhong 发表于 2024-12-11 10:06
试了多次，都是“身份验证失败”

不能直接登陆，要通过授权码登陆

xukaiz

修复QQ邮箱无法识别错误Mailer 中的GetCommand方法，对QQ邮箱兼容性有问题，QQ邮箱无法正确识别附件

  

子程序名	返回值类型	公开	备 注
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)

gdhong

试了多次，都是“身份验证失败”

无敌灰灰

感谢分享，目前在用E2EE的发邮件。。。。

wjswzj0

感谢分享，很给力！~

杨明煜

学习学习！........

龙傲天f

感谢分享，很给力