如何让outlook自动保存特定发件人发来的邮件中的附件

之前在SGS工作的时候，接到报告组的同事求助，他们经常要通过邮箱接收其他实验室的报告，这些邮件中都是含有附件的，而这些附件无法直接通过Everything本地磁盘进行检索，必须在Outlook中检索，效率比较慢。与此同时，工作流程规范又要求他们必须把收到的报告附件保存归档起来。如果是每天几个邮件手工处理一下也就还好，问题是他们每天接收到几十甚至上百个这样的任务，漏处理，重复处理的情况就会比较频发。有没有一种办法可以自动化的解决这个问题呢？进过研究我把这个问题迭代为：自动保存特定发件人来的邮件中的附件。然后找到了以下的处理方式。

所以问题的关键是问对一个问题，想一想别人遇到这种问题的时候会如何处理，程序员和IT井英遇到这种问题的时候会如何处理。你不太可能是第一个遇到这个问题的人，别人的答案值得借鉴。问对问题，问题就解决一半了。

原文链接：如何让outlook自动保存特定发件人发来的邮件中的附件

打开Outlook ,首先启用宏:文件-选项-信任中心-信息中心设置-宏设置-启用所有宏-确定-确定

按下Alt+F11点击插入-模块

拷贝下面的代码

Public Sub SaveAttach(Item As Outlook.MailItem)
    SaveAttachment Item, “z:\Quality_Control\Taqman\”
        MsgBox “已经把Taqman结果保存在了公共盘”
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