VBS使用SMTP协议发送邮件

最新推荐文章于 2018-06-18 14:32:50 发布

原创最新推荐文章于 2018-06-18 14:32:50 发布 · 5.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#SMTP #vbs

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

22 篇文章

订阅专栏

本文介绍了一种利用CDO（Collaboration Data Objects）组件在VBScript中发送带有附件电子邮件的方法。通过设置从、收件人、抄送、主题、正文及附件等属性，最终实现邮件的发送。文中提供了完整的脚本示例。

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