Outlook将收到邮件的附件保存在磁盘

轩辕阁

　　1. 新建一个宏
　　1）文件->选项->自定义功能区， 把主选项卡的 开发工具勾选上。
　　2）开发工具->宏，输入宏名，创建。
　　加入以下代码



Public Sub SaveAttach(Item As Outlook.MailItem)
SaveAttachment Item, "D:\", "*.docx"
End Sub
' 保存附件
' path为保存路径，condition为附件名匹配条件
Private Sub SaveAttachment(ByVal Item As Object, path$, Optional condition$ = "*")
Dim olAtt As Attachment
Dim i As Integer
If Item.Attachments.Count > 0 Then
For i = 1 To Item.Attachments.Count
Set olAtt = Item.Attachments(i)
' save the attachment
If olAtt.FileName Like condition Then
olAtt.SaveAsFile path & olAtt.FileName
End If
Next
End If
Set olAtt = Nothing
End Sub
　　3）点击 宏安全性->宏设置->启用所有宏，电子邮件安全性->勾选文件夹中的脚步下的两个选项
　　2. 创建一个主题包含某些内容的规则，然后执行SaveAttach脚本。
　　最后重启outlook。
　　参考：http://zhiqiang.org/blog/it/auto-save-attachment-in-outlook.html