vbs sendmail发邮件带附件方法2

摘要

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "jeannehotr@21cn.com" 
Email.To = "jeannehotz@126.com" 
Email.Subject =...

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" 
Set Email = CreateObject("CDO.Message") 
Email.From = "jeannehotr@21cn.com" 
Email.To = "jeannehotz@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") = "jeannehot" 
.Item(NameSpace&"sendpassword") = "ph4nt0m!" 
.Update 
End With 
Email.Send

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满

点赞收藏分享

推荐阅读

版权所有：辰峰微网
文章标题：vbs sendmail发邮件带附件方法2
文章链接：https://www.14551.cn/news/526.html
版权声明：本站提供的一切软件、教程和内容信息仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络收集整理，如果您喜欢该程序和内容，请支持正版，购买注册，得到更好的正版服务。我们非常重视版权问题，如有侵权请邮件与我们联系处理。敬请谅解！

扫描二维码，在手机上阅读