[已解决]VBS自动发送邮件失败报错0x80070057

Batcher

用的代码就是广为流传的例子：

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

看看此文中提到的一些属性是否有帮助
http://www.cnblogs.com/cxy521/archive/2008/01/22/1048802.html

Batcher

谢谢，但不是属性的问题。

pusofalse

参考下这里：http://support.microsoft.com/kb/310337

slore

貌似已经不能匿名方式发邮件了。

Batcher

应该不是Outlook的问题，初步怀疑是防火墙问题或者跟其它服务有冲突，进一步排查中...

Batcher

可以的。
部分服务器用的一个SMTPSERVER正常，但另一部服务器用的另一个SMTPSERVER有问题。

Batcher

问题解决了，是有人改了我的代码，把一个变量改错了，汗水。
感谢各位的关注。