批处理之家 - Powered by Discuz! Board

标题: [已解决]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://www.bathome.net/)