VBS调用CDO.Message,发邮件,抛出的错误乱码
代码如下
dim tmp
stmp = "test" & time
wscript.echo(stmp)
NotifyAdmin stmp
sub NotifyAdmin(msgBodyErr)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "test"
objMessage.From = "xxxx"
objMessage.To = "xxx"
objMessage.TextBody = msgBodyErr
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxx"
'-----------------------------------SMTP 服务器-----------------------------------
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx"
'-----------------------------------端口号-----------------------------------
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
end sub
在测试机1上执行后的错误
错误中支出的第39行，是 objMessage.Send。
说明：
1.测试机1、2、3、4都为WindowsXP SP3,在测试机2、3、4上都可以成功发送出邮件；
2.将第三行 wscript.echo(stmp),改为1wscript.echo(stmp)，执行后会提示编译器错误，缺少语句，是否可推断为字符集正确；
3.百度,google后，安装了STMP服务（PC2、3、4没装），仍旧提示此错误。
自我推测是否和系统环境有关系？但是和具体哪些东东有关系又不了解，我在csdn中没有查到什么对这个问题有很大帮助的文章，所以发帖求助，还请大家指点一下，谢谢。
vbs cdo.message 乱码 邮件 --------------------编程问答-------------------- 木有人哦，自己顶下~ --------------------编程问答-------------------- 后来解决了没有？我也碰上类似的问题。甚是苦恼。 --------------------编程问答-------------------- 我也遇到该问题了，经检查是解析邮件服务器域名有问题，换成IP就好了。
补充：VB , 网络编程
