Board logo

标题: [问题求助] 向邮箱自动发送邮件的VBS为何出错? [打印本页]

作者: dnvplj    时间: 2013-7-28 09:46     标题: 向邮箱自动发送邮件的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
复制代码

作者: weichenxiehou    时间: 2013-7-28 10:04

vbs的注释是用'开头,所以把第一行改为'automail.vbs
作者: dnvplj    时间: 2013-7-28 10:15

修改后,提示出错
作者: LJY4.0    时间: 2022-6-5 21:08

本帖最后由 LJY4.0 于 2022-6-5 21:10 编辑

应该先把错误提示发出来,不然无法得知错误




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2