批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[问题求助] 向邮箱自动发送邮件的VBS为何出错?

在网上找一向邮箱自动发送邮件的代码,运行时提示错,请各位朋友看一下,我填写的内容对吗?该代码是否正确?
  1. #automail.vbs
  2. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
  3. Set Email = CreateObject("CDO.Message")
  4. Email.From = "88888@qq.com"
  5. Email.To =  "99999@qq.com"
  6. Email.Subject = "Test sendmail.vbs"
  7. Email.Textbody = "OK!"
  8. Email.AddAttachment "d:\012.txt"
  9. With Email.Configuration.Fields
  10. .Item(NameSpace&"sendusing") = 2
  11. .Item(NameSpace&"smtpserver") = "smtp.sina.com"
  12. .Item(NameSpace&"smtpserverport") = 25
  13. .Item(NameSpace&"smtpauthenticate") = 1
  14. .Item(NameSpace&"sendusername") = "88888"
  15. .Item(NameSpace&"sendpassword") = "123"
  16. .Update
  17. End With
  18. Email.Send
复制代码

vbs的注释是用'开头,所以把第一行改为'automail.vbs
看得多说得多,远比不上写得多。

TOP

修改后,提示出错

TOP

返回列表