windows发送邮件脚本文件

windows发送邮件脚本文件

将以下代码复制到记事本中，修改文件名为“test.vbs”

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

Set Email = CreateObject("CDO.Message")

Email.From = "[email protected]"

Email.To = "[email protected]"

Email.Subject = "Test mail"

Email.Textbody = "各位好：为了更好的保障增值服务品质，请大家对增值服务合同和现有平台内容进行四月份确认工作，各平台负责人于5月4日下班前出填写好《增值服务核对表》。"

Email.AddAttachment "D:\办公联络表20110317[1].xls"

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = "mail.yun-idc.com" 

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "xuefeng.du"

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

.Update

End With

Email.Send