vbs sendmail发邮件带附件方法

1. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"  
2. Set Email = CreateObject("CDO.Message")  
3. Email.From = "[e-mail]"  
4. Email.To = "[e-mail]"  
5. Email.Subject = "Test sendmail.vbs"  
6. Email.Textbody = "OK!"  
7. Email.AddAttachment "C:\foo.zip"  
8. With Email.Configuration.Fields  
9. .Item(NameSpace&"sendusing") = 2  
10. .Item(NameSpace&"smtpserver") = "smtp.21cn.com"   
11. .Item(NameSpace&"smtpserverport") = 25  
12. .Item(NameSpace&"smtpauthenticate") = 1  
13. .Item(NameSpace&"sendusername") = "zzzevazzz"  
14. .Item(NameSpace&"sendpassword") = "ph4nt0m!"  
15. .Update  
16. End With  
17. Email.Send