OmniFocus里可以用发送邮件的办法在Windows系统中实现快速收集功能

OmniFocus功能很强大，但只能在Mac系统和iOS系统中运行，在办公室里我一般不带Macbook，在用iPhone实现收集时打字就是一种痛苦，以前我是用这种办法：

打开浏览器用微传把信息发送到iPhone中，再打开iPhone中的微传，复制到剪贴板中，再打开OmniFocus中把粘贴到OmniFocus的Inbox中，收集过程有些辛苦。

现在发现如果用了OmniFocus中的同步服务，可以申请开通Mail Drop功能，将Action直接发送到一个邮件地址中，从而直接同步到你的OmniFocus系统的Inbox中。

配置过程：

1）必须用omniFocus的同步Omni Sync Server功能，当前这个功能是免费的，申请账号后，在iPhone中的omnifocus上配置该同步服务即可

2）登录到Omni Sync Server的WEB网站上，用你的账号登录，申请开通Mail Drop to Inbox功能

3）当Mail Drop to Inbox开通后，你会收到一封邮件通知，然后你再登录Omni Sync Server，可以得到一个邮件账号[email protected]，然后你就可以往那个账号中发邮件了，Action的名称当作邮件的主题，详细信息放在邮件的正文中，当OmniFocus同步之后，这个Action就会出现在Inbox中了。为了发邮件方便，我直接安装了一个SMTPMailSender小程序，这个小程序支持命令行，配置好发送服务器和收件人地址，直接就可以发送到Inbox了。

点此下载：SMTPMailSender.zip

SMTPMailSender.exe -f [email protected] -t [email protected]

 

后记：这个SMTPMailSender好像是用Java写的，有点不好用，有时会死锁或者汉字不出来。

后来又找了一个叫NoteMe的小软件，更简洁，不过里面有一个邮件配置不能自动配置，得修改一下。有一个严重的缺点，汉字会出现乱码，我还没有找到解决办法。

[SMTP]
[email protected]
server=smtp.qq.com:25
username=my-from-mail
password=your-password

 

2014年8月1日：Charlesfuture写了一段脚本，直接保存为一个.vbs文件，双击运行即可。

'By charlesfuture

On Error Resume Next

f="此处填写自己的邮箱地址，比如[email protected]，保留双引号"

smtp="此处填写邮箱服务器地址，比如smtp.163.com"

u="邮箱用户名，@前面的那部分"

p="邮箱的登录密码"

t="自己的omnifocus邮箱地址，比如[email protected]"

m=InputBox("事件标题","新收件箱项:","空")
if m=false then wscript.quit

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = createObject("CDO.Message")

Email.From = f

Email.To = t

Email.Subject = m

With Email.Configuration.Fields

.Item(NameSpace&"sendusing") = 2

.Item(NameSpace&"smtpserver") = smtp

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = u

.Item(NameSpace&"sendpassword") = p

.update

End With

Email.Send