以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  向QQ邮箱发送邮失败  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147001)
--  作者：明天的灵
--  发布时间：2020/3/7 15:07:00
--  向QQ邮箱发送邮失败
向多个QQ帐号送邮件失败。
按书上例子，稍修改了以代码，可以向163邮箱发送，并正常，但是向QQ邮箱发送就没提醒，也没有收到附件。

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行

m.EnableSsl = True                          ‘也试过False
m.Host = "smtp.163.com"
m.Account = "XXXXX"
m.Password = "YYYYY"            \'163帐号的授权码
     m.From = "xiaoliu@Sina.com.cn"
For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
m.To = dr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()
Next

　
--  作者：有点蓝
--  发布时间：2020/3/7 15:16:00
--  
看看是不是这个原因：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=146684&replyID=57021&skin=1
--  作者：明天的灵
--  发布时间：2020/3/7 15:39:00
--  
不是这个原因，我是从163发出，发到163邮箱正常，但是对方是qq邮箱就收不到了
--  作者：有点蓝
--  发布时间：2020/3/7 15:59:00
--  
这个不是代码的问题了，我也解决不了。看看qq邮箱是不是当垃圾给屏蔽了。