使用VBS脚本发送邮件-韩立刚重生之苏岸
北门扯把子
原始vbs脚本如下
可以按视频中的教程修改参数后保存 成 <sendmail.vbs> 即可在本地策略 登录注销 重启 以及计划任务中执行vbs实现发送邮件
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "1xxxxxxxxxx@139.com"
Email.To = "1xxxxxxxxxxx@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") = "1xxxxxxxx"
.Item(NameSpace&"sendpassword") = "pass"
.Update
End With
Email.Send
=========================================
1、CCNA网络和安全韩老师课程 学习邀请卡无事献殷勤，洪煦榆 微信打开后 长按二维码进入
2、腾讯课堂 CCNA网络课程免费公开课
https://ke.qq.com/course/234144#tuin=cd565518
3、复制以上代码
可以转发到自己的朋友圈
长按上图二维码或微信扫一扫秦腔曲牌 ，可以关注韩老师微信公众号
4、韩老师出版的计算机方面的书