您的位置:首页 > 大数据 > 人工智能

发到139邮箱可以实现短信通知

2013-10-18 10:16 507 查看
VBS脚本

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "手机号码@139.com"
Email.To = "手机号码@139.com"
Email.Subject = "有人登陆Web服务器"
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") = "手机号码"
.Item(NameSpace&"sendpassword") = "139邮箱密码"
.Update
End With
Email.Send
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息