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

书到用时方恨少，事非经过不知难。这篇文章主要讲述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")= 25SMTP端口
.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代码发送邮件，实现电脑开机后向手机发短信】注：vbs也可用由组策略调用，可以实现关机运行脚本。?
?双击该任务，点击“更改用户和组”，将执行该任务的账户改为SYSTEM，，配置改为2008R2，这样就不会出现任务执行时的黑框：?

?现在重启电脑，手机能收到短信了！?
?如果想要bat调用vbs，可以用如下语法：?

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

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

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