vbs提取邮件正文（bat命令）运行（外出时用手机发个邮件就能控制家里的电脑）

wkl17

vbs提取邮件正文（bat命令）运行（外出时用手机发个邮件就能控制家里的电脑O(∩_∩)O）

各位vbs大虾，小弟只懂少数bat。

现在有一想法，希望大虾们能实现它：

eml_bat.vbs ，运行它后，每隔5分钟自动访问邮箱：
myeml@163.com password123
提取第一封未读邮件的正文（如果正文不好提取，“标题”也行），然后运行它。
（每次循环检查，只有“未读邮件”才继续提取、执行，避免重复执行）

不知道用VBS能不能实现？？

因为我有时人在外面，不能上网，（但手机可以发邮件），如果有这么一个VBS，那我可以通过邮件发一个CMD命令，让远程计算机自动完成我所想要做的事（比如重启、关机、运行qq.exe等等）

期待大虾们出现。。

scorix

答非所问，人家要的是收件

TIB

VBS发送Emial的例子：
Function SendMail(buildversion , buildlog , deBugbuildResult)
  Set oMessage=WScript.CreateObject("CDO.Message")
  Set oConf=WScript.CreateObject("CDO.Configuration")
  '创建CDO.Configuration对象后，需要设置邮件服务器的端口、用户帐号等相关信息
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="192.168.0.2"
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/serverport")=25
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="tester1"
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="123456"
  oConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=0
  oConf.Fields.Update()
         
   '通过CDO的 Message对象设置邮件主题、附件、发送人等信息
   oMessage.Configuration = oConf
   oMessage.To = "tester1@cnj.com,tester2@cnj.com"
   oMessage.From = "tester1@cnj.com"
   oMessage.Subject = "每日构建结果"
   oMessage.AddAttachment( buildlog )

   If deBugbuildResult = true Then
         TextBody = "编译成功！"
   Else
         TextBody = "编译失败！"
   End If
          
   oMessage.TextBody = TextBody
   oMessage.Send()
End Function