28,408
社区成员
发帖
与我相关
我的任务
分享
Set myMail=CreateObject("CDO.Message")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'Authentication method, ssl or not, Username and password for the SMTP Server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@xxx.com" 'FromEmail
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx" 'FromEmail Password
myMail.Configuration.Fields.Update
MailTitle = "xxxxxxxxxxxxxx"
mailcontent = "ddddddddd"
myMail.From = FromEmail
myMail.To = Toemail
myMail.Subject = MailTitle
myMail.HTMLBody = mailcontent
myMail.HTMLBodyPart.Charset = "UTF-8"
myMail.Send
set myMail=nothing