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

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

.Update 

End With 

Email.Send 


文件另存为.VBS格式。