- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]发送邮件找不到SMTP主机? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126296)
-- 发布时间：2018/10/18 12:27:00
-- [求助]发送邮件找不到SMTP主机?
m.Host ="smtp.xxxxxxxx.com"
m.Account = "XXXX.com" \'指定登录邮件服务器的帐号
m.Password = "*****" \'登录邮件服务器的密码
m.from = "XXXX.com"
按要求设置了SMTP服务器,使用的是厦门中资源的邮件服务器。
发送邮件时，告警 没有找到SMTP服务器，无法解析远程名称。
和中资源技术人员联系，又提供了一个邮件服务器域名，使用这个域名，就没有上述告警了！
但接着出了新问题。异步发送时没有错误提示，但是连续发送邮件时，接收的内容是错的，比如发了五封信，邮箱地址没有错，五个人都能接到。但是内容却是同一个。
使用同步发送 就出错了！报告邮件发送错误！ 应该从何查起？ 谢谢
-- 发布时间：2018/10/18 12:31:00
--
用这个发送有没有问题？单独测试，然后把账号密码改到你程序那里测试，然后把你的账号密码写到下面测试。
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)
-- 发布时间：2018/10/18 12:54:00
--
1 按2楼测试是正常的;
2 将2楼中的host Account Password From Copy我的程序中,发送就不正常了,出现如下提示. 我的程序是采用循环语句多封发送。发送第一张正常，第二张就出错了。
此主题相关图片如下：qq截图20181018124938.png
-- 发布时间：2018/10/18 15:02:00
--
那就是你代码有问题导致的。贴出可测试的代码测试。
-- 发布时间：2018/10/18 16:34:00
--
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)
测试一下这个代码 就会出错。就是加了一个循环。
-- 发布时间：2018/10/18 16:38:00
--
每一次都要重新new
For i As Integer=0 To 5
Dim m As New MailSender