vbs如何实现sendmail发邮件带附件

小编给大家分享一下vbs如何实现sendmail发邮件带附件，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "zzzevazzz@21cn.com" 
Email.To = "zzzevazzz@126.com" 
Email.Subject = "Test sendmail.vbs" 
Email.Textbody = "OK!" 
Email.AddAttachment "C:\foo.zip" 
With Email.Configuration.Fields 
.Item(NameSpace&"sendusing") = 2 
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"  
.Item(NameSpace&"smtpserverport") = 25 
.Item(NameSpace&"smtpauthenticate") = 1 
.Item(NameSpace&"sendusername") = "zzzevazzz" 
.Item(NameSpace&"sendpassword") = "ph5nt0m!" 
.Update 
End With 
Email.Send

以上是“vbs如何实现sendmail发邮件带附件”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注行业资讯频道！