發郵件腳本

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

Set Email = CreateObject("CDO.Message") 

Email.From = "15158080520@139.com" 

Email.To = "zy@hopechart.com" 

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") = "15158080520" 

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

.Update 

End With 

Email.Send 

文件另存爲.VBS格式。