向邮箱自动发送邮件的VBS为何出错？

dnvplj

在网上找一向邮箱自动发送邮件的代码，运行时提示错，请各位朋友看一下，我填写的内容对吗？该代码是否正确？

1. #automail.vbs
   
2. 
   
3. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
   
4. Set Email = CreateObject("CDO.Message")
   
5. Email.From = "88888@qq.com"
   
6. Email.To =  "99999@qq.com"
   
7. Email.Subject = "Test sendmail.vbs"
   
8. Email.Textbody = "OK!"
   
9. Email.AddAttachment "d:\012.txt"
   
10. With Email.Configuration.Fields
    
11. .Item(NameSpace&"sendusing") = 2
    
12. .Item(NameSpace&"smtpserver") = "smtp.sina.com"
    
13. .Item(NameSpace&"smtpserverport") = 25
    
14. .Item(NameSpace&"smtpauthenticate") = 1
    
15. .Item(NameSpace&"sendusername") = "88888"
    
16. .Item(NameSpace&"sendpassword") = "123"
    
17. .Update
    
18. End With
    
19. Email.Send

复制代码

weichenxiehou

vbs的注释是用'开头，所以把第一行改为'automail.vbs

dnvplj

修改后，提示出错

LJY4.0

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