Board logo

标题: [已解决]VBS自动发送邮件失败报错0x80070057 [打印本页]

作者: Batcher    时间: 2009-5-7 17:25     标题: [已解决]VBS自动发送邮件失败报错0x80070057

用的代码就是广为流传的例子:
  1. Set cdo = CreateObject("CDO.Message")
  2. strCfg = "http://schemas.microsoft.com/cdo/configuration/"
  3. With cdo
  4. .Sender = "发送者邮件地址"
  5. .From = "发送者邮件地址"
  6. .To = "接收者邮件地址"
  7. .Fields("urn:schemas:mailheader:X-Priority") = 1
  8. .Fields.Update
  9. .Subject = "邮件标题"
  10. .TextBody = "邮件内容"
  11. .Configuration(strCfg & "SendUsing") = 2
  12. .Configuration(strCfg & "smtpserver") = "发送邮件服务器地址"
  13. .Configuration.Fields.Update
  14. .Send
  15. 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://bbs.bathome.net/) Powered by Discuz! 7.2