VBS使用SMTP协议发送邮件

最新推荐文章于 2019-12-25 16:13:29 发布

blizzardlyk

最新推荐文章于 2019-12-25 16:13:29 发布

阅读量5k

点赞数 1

分类专栏： VBS代码点滴文章标签： SMTP vbs

本文链接：https://blog.csdn.net/blizzardlyk/article/details/9999591

版权

VBS代码点滴专栏收录该内容

22 篇文章 2 订阅

订阅专栏

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "sender@xx.com"
Email.To = "receiver@xx.com"
Email.CC = "cclist@xx.com"
Email.Subject = "mail subject"
Email.Textbody = "OK!"
Email.AddAttachment "C:\111.txt"
Email.Configuration.Fields.Item(NameSpace &"sendusing") = 2
Email.Configuration.Fields.Item(NameSpace & "smtpserver")= "smtp.xx.com"
Email.Configuration.Fields.Item(NameSpace & "smtpserverport")= 25
Email.Configuration.Fields.Item(NameSpace & "smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameSpace & "sendusername")= "username"
Email.Configuration.Fields.Item(NameSpace & "sendpassword")= "password"
Email.Configuration.Fields.Update
Email.Send