主题：[求助]发送邮件找不到SMTP主机?

使用同步发送 就出错了！报告邮件发送错误！ 应该从何查起？ 谢谢

用这个发送有没有问题？单独测试，然后把账号密码改到你程序那里测试，然后把你的账号密码写到下面测试。

Dim m As New MailSender
m.Host = "smtp.qq.com"
m.Account = "455189993@qq.com"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "765427475@qq.com"
m.Title = "初jkj完成"
m.Content = "附件jkjkj为初稿, 请您审阅!"
'm.AddAttachments("d:\test.xls")  
'm.AddAttachments("d:\11.xls")   ''如何添加多个附件. 这样只看到最后一个附件而于
m.Send
msgbox(123)

1 按2楼测试是正常的;

2 将2楼中的host Account Password From Copy我的程序中,发送就不正常了,出现如下提示.  我的程序是采用循环语句多封发送。发送第一张正常，第二张就出错了。

此主题相关图片如下：qq截图20181018124938.png

Dim m As New MailSender

For i As Integer=0 To 5
    m.Host = "smtp.qq.com"
    m.Account = "455189993@qq.com"
    m.Password = "helen6849338."
    m.From = "455189993@qq.com"
    m.To = "31358568@qq.com"
    m.Title = "初jkj完成"
    m.C
    'm.AddAttachments("d:\test.xls")
    'm.AddAttachments("d:\11.xls")   ''如何添加多个附件. 这样只看到最后一个附件而于
    m.Send
Next
msgbox(123)

测试一下这个代码 就会出错。就是加了一个循环。

每一次都要重新new

For i As Integer=0 To 5