最近发现打完基线发邮件是一件很烦的事情,作为懒人的我,准备找一个自动发送邮件的脚本,根据基线申请单自动生成邮件
下面是发送邮件的脚步及说明,稍后完成后将把基线申请单模板和邮件脚步共享给大家
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"