vbs代码发送邮件，实现电脑开机后向手机发短信
Posted haierccc1
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbs代码发送邮件，实现电脑开机后向手机发短信相关的知识，希望对你有一定的参考价值。
如果你想要对你的电脑有所把控，希望掌握电脑开机的时间，可以用此技巧，每次开机即会向你的手机发送短信。
电脑开机发短信的步骤是：
① 在139邮箱开启收到邮件发短信的功能
② 编写vbs脚本发送邮件到139邮箱
③ 在PC的“任务计划”添加开机项目调用vbs脚本
本文按照这3步详细降解，要求电脑能上外网，经试验在WIN7和WIN10下可用。
第一步，注册139邮箱，开启邮件短信提示
进入 mail.139.com 或 https://mail.10086.cn/ ，用手机号注册邮箱，进入后点右上角齿轮 → 常规设置，点左侧的“邮件设置”，默认就处于“短信提醒”选项卡，在这里指定短信接收日期、接收时间，也可以指定收到哪些邮件才会发送提醒：
点击左侧账户与安全 → 邮箱协议设置，可见SMTP服务器域名和端口号，之后要用到：
第二步，编写发送邮件的vbs脚本，将邮件发送至139邮箱
vbs脚本如下：
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set 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 "
.update
End With
Email.Send
Set Emaill=Nothing
需要你修改的内容是：
第3、4行：写你的139邮箱
第12、13行写你的用户名和邮箱登录密码
第5行是邮件标题，这是BASE64编码的汉字，编码方法是进入https://tool.oschina.net/，点击”BASE64编码解码“，在左侧填入汉字，右侧输出为BASE64编码，然后在编码前加=?UTF-8?B?，编码后加?=
现在双击这个vbs，如果邮箱收到了邮件，同时手机收到了短信，就表明发信代码无误！
第三步，在PC的“任务计划”添加开机项目调用vbs脚本
控制面板 → 管理工具 → 任务计划程序 → 创建基本任务，触发器设置为“计算机启动时”，也可以按照你的实际情况设置，比如“当前用户登录”：
注：vbs也可用由组策略调用，可以实现关机运行脚本。
双击该任务，点击“更改用户和组”，将执行该任务的账户改为SYSTEM，，配置改为2008R2，这样就不会出现任务执行时的黑框：
现在重启电脑，手机能收到短信了！
如果想要bat调用vbs，可以用如下语法：
: 这里写批处理语句
@wscript "D:\\NeoShineOffice 5\\program\\发邮件.vbs"
exit
排错：
如果收到错误提示：邮件无法发送到SMTP服务器。传输错误代码为 0x80040217，服务器响应为 not available，代码80040211：
可能是邮箱密码不对（用vbs里的密码登录邮箱试试），也可能是你选择的SMTP服务器已经不再提供服务，或者需要授权码/发件服务器需要认证。
以上是关于vbs代码发送邮件，实现电脑开机后向手机发短信的主要内容，如果未能解决你的问题，请参考以下文章