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