windows 发送邮件脚本

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "发件人名称"
Email.To = "user@sc-forward.com"
Email.Subject = "标题"
Email.Textbody = "邮件正文"
Email.AddAttachment "c:\1.txt"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.exmail.qq.com" 
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "svn@text.com"
.Item(NameSpace&"sendpassword") = "123456"
.Update
End With
Email.Send

下面是说明

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" *用ms命名空间，不变
Set Email = CreateObject("CDO.Message") *定义邮件，不变
Email.From = "发件人名称" *将发件人名称改为你想要显示的内容
Email.To = "user@sc-forward.com" *收件人地址
Email.Subject = "标题" *邮件标题
Email.Textbody = "邮件正文" *邮件正文
Email.AddAttachment "c:\1.txt" *附件
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.exmail.qq.com"  *smtp服务器
.Item(NameSpace&"smtpserverport") = 25 *端口
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "svn@text.com" *发件人账号
.Item(NameSpace&"sendpassword") = "123456" *密码
.Update
End With
Email.Send