用邮件远程控制电脑的工具

最近完成了一个用邮件远程控制电脑的工具，因为常常希望在家就能跑在公司机器上的事情。简记之：

 

使用方法：

 

首先，

在Outlook里建立VBA：按Alt+F11调出VBA编辑器，增加如下方法：

 

Sub CallOutlookRunner(Item As Outlook.MailItem) Dim mailbody As String Dim FileName As String Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") FileName = fso.GetTempName Set MyFile = fso.CreateTextFile("D:/" & FileName, True) MyFile.Write (Item.Body) MyFile.Close Set MyFile = Nothing Set fso = Nothing End Sub

 

其次给Outlook增加邮件规则，在Select Action那一步中选"Run a scription", 设置Script为上一步建立的方法。

 

第三，在需要远程控制的机器上启动Outlook，运行小工具“OutlookRunner”

 

第四，在家里给自己发送能触发邮件规则的邮件，邮件的body部分是需要在目标机器上运行的命令行语句即可，程序会陆续将运行的结果或者是错误信息发送回来。

 

 

 

实现原理

 

1. Outlook的Script 实现的功能是将邮件的body写到D盘下一个临时文件中

2. OutlookRunner程序将监视D盘，发现了临时文件就会读取其中内容，并一行一行地压进一个内部的Console进程中

3. Console进程的输出与错误信息将定时打包成邮件发送出去

 

原来希望写Outlook插件直接做这件事情的，但是后来考虑到可能会遇到权限问题，改成单写一个小工具。