VBS发送邮件

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "sanqi@liebo.com"
Email.To = "sanqi@liebo.com"
Email.Subject = "mail subject"
Email.Textbody = "OK!"
'Email.AddAttachment "C:\file.zip"
With Email.Configuration.Fields
 .Item(NameSpace&"sendusing") = 2
 .Item(NameSpace&"smtpserver") = "mail.liebo.com" 'SMTP服务器
 .Item(NameSpace&"smtpserverport") = 25 '端口
 .Item(NameSpace&"smtpauthenticate") = 1
 .Item(NameSpace&"sendusername") = "sanqi@liebo.com" '用户名
 .Item(NameSpace&"sendpassword") = "liebo.com123" '密码
 .Update
End With
Email.Send