发邮件脚本

时间 2019-11-29

标签邮件脚本繁體版

原文原文链接

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

Set Email = CreateObject("CDO.Message") 服务器

Email.From = "15158080520@139.com" ide

Email.To = "zy@hopechart.com" 测试

Email.Subject = "数据库测试服务器" server

Email.Textbody = "数据库备份完成!" it

With Email.Configuration.Fields io

.Item(NameSpace&"sendusing") = 2 class

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

.Item(NameSpace&"smtpserverport") = 25 数据

.Item(NameSpace&"smtpauthenticate") = 1

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

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

.Update

End With

Email.Send

文件另存为.VBS格式。