OUTLOOK 附件自动保存到目标文件夹 为索引或者报表合并做准备

如何让outlook自动保存特定发件人发来的邮件中的附件 - 百度文库 (baidu.com)

自己试用下来觉得好用的代码。

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment

Dim saveFolder As String

saveFolder = "C:\Users\kunxin01\Desktop\包装报表合并"

    For Each objAtt In itm.Attachments

'"c:\temp\"为保存目录，必须以"\"结尾，否则无法保存。此处可以自定义保存路径。

        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName

        Set objAtt = Nothing

    Next

End Sub