vbs代码发送邮件,实现电脑开机后向手机发短信

网友投稿 1472 2022-09-14

vbs代码发送邮件,实现电脑开机后向手机发短信

vbs代码发送邮件,实现电脑开机后向手机发短信

​如果你想要对你的电脑有所把控,希望掌握电脑开机的时间,可以用此技巧,每次开机即会向你的手机发送短信。​

​电脑开机发短信的步骤是:​

​① 在139邮箱开启收到邮件发短信的功能​

​② 编写vbs脚本发送邮件到139邮箱​

​③ 在PC的“任务计划”添加开机项目调用vbs脚本​

​本文按照这3步详细讲解,要求电脑能上外网,经试验在WIN7和WIN10下可用。​

​​​第一步,注册139邮箱,开启邮件短信提示​​​

​进入 mail.139.com 或 ,用手机号注册邮箱,进入后点右上角齿轮 → 常规设置,点左侧的“邮件设置”,默认就处于“短信提醒”选项卡,在这里指定短信接收日期、接收时间,也可以指定收到哪些邮件才会发送提醒:​

​​​第二步,编写发送邮件的vbs脚本,将邮件发送至139邮箱​​​

​发邮件.vbs 如下:​

NameSpace = "Email = CreateObject("CDO.Message")Email.From = "18388888888@139.com" ' 发信人地址 Email.to = "18388888888@139.com" ' 收信人地址(任何邮箱均可,但要有发短信功能) Email.Subject = "=?UTF-8?B?5oiR55qEUEPlkK/liqjml7bpl7TmmK/vvJo=?="+cstr(now()) ' 详见下文Email.Textbody = "PC" ' 邮件正文With Email.Configuration.Fields.Item(NameSpace&"sendusing")= 2.Item(NameSpace&"smtpserver")= "smtp.139.com" ' 发信服务器 .Item(NameSpace&"smtpserverport")= 25 ' SMTP端口 .Item(NameSpace&"smtpauthenticate")= 1.Item(NameSpace&"sendusername")= "18388888888".Item(NameSpace&"sendpassword")= " Password ".updateEnd WithEmail.SendSet Emaill=Nothing

​需要你修改的内容是:​

​第3、4行写你的139邮箱​

​第12、13行写你的用户名和邮箱登录密码​

​现在双击这个vbs,如果邮箱收到了邮件,同时手机收到了短信,就表明发信代码无误!​

​​​第三步,在PC的“任务计划”添加开机项目调用vbs脚本​​​

​控制面板 → 管理工具 → 任务计划程序 → 创建基本任务,触发器设置为“计算机启动时”,也可以按照你的实际情况设置,比如“当前用户登录”:​

​注:vbs也可用由组策略调用,可以实现关机运行脚本。​

​现在重启电脑,手机能收到短信了!​

​如果想要bat调用vbs,可以用如下语法:​

: 这里写批处理语句@wscript "D:\program\发邮件.vbs"exit

​​​排错:​​​

​如果收到错误提示:邮件无法发送到SMTP服务器。传输错误代码为 0x80040217,服务器响应为 not available,代码80040211:​

​可能是邮箱密码不对(用vbs里的密码登录邮箱试试),也可能是你选择的SMTP服务器已经不再提供服务,或者需要授权码/发件服务器需要认证。​

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Tcping命令工具
下一篇:DIG命令
相关文章

 发表评论

暂时没有评论,来抢沙发吧~