51Testing软件测试论坛

标题: vbs提取邮件正文（bat命令）运行（外出时用手机发个邮件就能控制家里的电脑） [打印本页]

作者: wkl17 时间: 2010-11-20 22:16
标题: vbs提取邮件正文（bat命令）运行（外出时用手机发个邮件就能控制家里的电脑）
vbs提取邮件正文（bat命令）运行（外出时用手机发个邮件就能控制家里的电脑O(∩_∩)O）

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

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

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

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

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

期待大虾们出现。。

作者: TIB 时间: 2010-11-21 19:49
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

作者: scorix 时间: 2010-11-21 20:16
答非所问，人家要的是收件

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)