在Windows2003系统中使用VBS利用cdosys.dll发送邮件

直接保存为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　 href="http://schemas.microsoft.com/cdo/configuration/sendusername" target=_blank>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