登录注销发送邮件脚本.vbs

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

Set Email = CreateObject("CDO.Message") 

Email.From = "[email protected]" 

Email.To = "[email protected]" 

Email.Subject = "服务器被注销" 

Email.Textbody = "服务器被注销" 

With Email.Configuration.Fields 

.Item(NameSpace&"sendusing") = 2 

.Item(NameSpace&"smtpserver") = "smtp.139.com" 

.Item(NameSpace&"smtpserverport") = 25 

.Item(NameSpace&"smtpauthenticate") = 1 

.Item(NameSpace&"sendusername") = "15215245951" 

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

.Update 

End With 

Email.Send