vbs发送邮件错误
Const schema = "http:/schemas.microsoft.com/cdo/configuration"
Set CDO = CreateObject("CDO.Message")
Const Email_From = "邮箱@126.com"
Const Email_To = "QQ@qq.com"
CDO.Subject = "From Demon"
CDO.Subject="I AM ANIPER"
CDO.htmlBody = "Hello world!"
cdo.AddAttachment "D:\1.txt"
With CDO.Configuration.Fields
.Item(schema & "sendusing") = 2
.Item(schema & "smtpserver") = "smtp.126.com"
.Item(schema & "smtpserverport") = 25
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "sendusername") = "邮箱"
.Item(schema & "sendpassword") = ""
.Update
End With
CDO.Send
各位看下这有什么问题吗？
老是出现
错误：sendsuing配置值无效
代码：80040220
源：CDO。Message.1 vbs发送邮件错误 vbs
[解决办法]
http://www.dotblogs.com.tw/hunterpo/archive/2010/03/16/14041.aspx
*****************************************************************************
签名档： http://feiyun0112.cnblogs.com/
[解决办法]
我也是出现了这样的问题,后来改用了 System.Net.Mail 类
