脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - vbs sendmail发邮件带附件方法

vbs sendmail发邮件带附件方法

2020-07-22 13:47VBS代码网 VBS

vbs下实现邮件发送代码,可以发附件等

  1. NameSpace = "http://schemas.microsoft.com/cdo/configuration/"  
  2. Set Email = CreateObject("CDO.Message")  
  3. Email.From = "zzzevazzz@21cn.com"  
  4. Email.To = "zzzevazzz@126.com"  
  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  

延伸 · 阅读

精彩推荐