直接保存为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