最近想做一个公司系统自动发送提醒邮件的系统,刚才测试了一下,发现一个问题。测试代码如下:
Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.Account = "jimmy"
m.Password = "***********"
m.From = "jimmy@gzhito.com.cn"
m.To = "sale@gzhito.com.cn"
m.Title = "新到货进口货物资料"
m.C
m.SendAsync
Output.show(1)
没有报错,但也收到到邮件。后来我又改了一下代码,把异步变成马上发送,代码如下:
Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.Account = "jimmy"
m.Password = "**********"
m.From = "jimmy@gzhito.com.cn"
m.To = "sale@gzhito.com.cn"
m.Title = "新到货进口货物资料"
m.C
m.Send
Output.show(1)
这样就会报错,祥细见下图:
此主题相关图片如下:d~abb~35n20f}t6t9{0~%v.jpg
请问是什么问题?多谢!