vbs发送邮件异常

vbs发送邮件错误
Const schema = "http:/schemas.microsoft.com/cdo/configuration"
Set CDO = CreateObject("CDO.Message")

Const Email_From = "[email protected]"
Const Email_To = "[email protected]"
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 类

相关内容推荐