VBS发送邮件（163邮箱到QQ邮箱或Gmail）

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "***********@163.com"

Email.To = "************@qq.com"
'Email.To = "************@gmail.com"

Email.Subject = "Test sendmail.vbs"

Email.Textbody = "OK!"

Email.AddAttachment "C:\test.txt"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "smtp.163.com"

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "***********@163.com"

.Item(NameSpace&"sendpassword") = "********"

.Update

End With

Email.Send