标题: [已解决]VBS自动发送邮件失败报错0x80070057 [打印本页]
作者: Batcher 时间: 2009-5-7 17:25 标题: [已解决]VBS自动发送邮件失败报错0x80070057
用的代码就是广为流传的例子:- Set cdo = CreateObject("CDO.Message")
- strCfg = "http://schemas.microsoft.com/cdo/configuration/"
- With cdo
- .Sender = "发送者邮件地址"
- .From = "发送者邮件地址"
- .To = "接收者邮件地址"
- .Fields("urn:schemas:mailheader:X-Priority") = 1
- .Fields.Update
- .Subject = "邮件标题"
- .TextBody = "邮件内容"
- .Configuration(strCfg & "SendUsing") = 2
- .Configuration(strCfg & "smtpserver") = "发送邮件服务器地址"
- .Configuration.Fields.Update
- .Send
- End With
复制代码
在某个Win2003服务器上运行时报错信息如下:
Test.vbs(70, 3) (null): The message could not be sent to the SMTP server. The transport error code was 0x80070057. The server response was notavailable
应该不是SMTPserver的地址没写对,否则会报另一个错误。Google搜索了一下,有人说需要增加以下配置:
Item(MS_Space&"smtpauthenticate")
Item(MS_Space&"sendusername")
Item(MS_Space&"sendpassword")
但是我在那个邮件系统中没有自己的账号。请问在这种情况下该如何解决此问题呢?
PS: 因为是服务器,暂时不考虑第三方工具。
作者: zqz0012005 时间: 2009-5-7 17:41
看看此文中提到的一些属性是否有帮助
http://www.cnblogs.com/cxy521/archive/2008/01/22/1048802.html
作者: Batcher 时间: 2009-5-7 22:32 标题: 回复 2楼 的帖子
谢谢,但不是属性的问题。
作者: pusofalse 时间: 2009-5-8 07:32
参考下这里:http://support.microsoft.com/kb/310337
作者: slore 时间: 2009-5-8 08:45
貌似已经不能匿名方式发邮件了。
作者: Batcher 时间: 2009-5-8 09:56 标题: 回复 4楼 的帖子
应该不是Outlook的问题,初步怀疑是防火墙问题或者跟其它服务有冲突,进一步排查中...
作者: Batcher 时间: 2009-5-8 09:57 标题: 回复 5楼 的帖子
可以的。
部分服务器用的一个SMTPSERVER正常,但另一部服务器用的另一个SMTPSERVER有问题。
作者: Batcher 时间: 2009-5-8 11:21
问题解决了,是有人改了我的代码,把一个变量改错了,汗水。
感谢各位的关注。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |