以文本方式查看主题
- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]发送邮件找不到SMTP主机? (http://www.foxtable.com/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
|