本文介绍了一段使用VBScript编写的简单脚本，该脚本能够通过SMTP服务器发送带有指定主题及内容的HTML格式电子邮件。脚本中详细展示了如何设置发件人、收件人、邮件主题和正文，并配置了邮件发送的相关参数。
直接保存为XX.vbs双击就可以了。呵呵
Dim objSendMail
Dim strTo, strFrom
Dim strSubject, strBody
Dim shipUic
Set objSendMail = CreateObject("CDO.Message")
objSendMail.From = "zhuzl"
objSendMail.To = "zhuzl@cptf.com.cn"
objSendMail.Subject = "So Good"
objSendMail.HtmlBody = "You Are The Best"
objSendMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "XXXXXX"
objSendMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objSendMail.Configuration.Fields.Update
objSendMail.Send()
Set objSendMail = Nothing
MsgBox("发送成功")
PS：其他字串
http://schemas.microsoft.com/cdo/configuration/sendusing http://schemas.microsoft.com/cdo/configuration/sendusername
http://schemas.microsoft.com/cdo/configuration/sendpassword http://schemas.microsoft.com/cdo/configuration/smtpauthenticate
http://schemas.microsoft.com/cdo/configuration/languagecode
http://schemas.microsoft.com/cdo/configuration/smtpserver
扫一扫
1120
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
