vba - 使用outlook vba将outlook消息的excel附件保存在windows的指定文件夹中

Question

可能重复：
如何将 Outlook 2007 收件箱中定义的子文件夹中收到的电子邮件中附加的 excel 文件保存到 Windows 上的文件夹中？

我真的需要一个 Outlook vba 功能来自动将 excel 附件保存在名为 daily 的给定收件箱子文件夹中，并且 windows 的目标文件夹具有路径 C:/daily 报告，因此我感谢您的帮助和支持。

谢谢，

Answer 1

enter code here您可以使用以下脚本并从 Outlook 的规则和警报运行它并应用于所需的用户或项目

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "E:\Attachments\"
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
        Set objAtt = Nothing
    Next
End Sub

谢谢，