使用outlook vba在Outlook的指定文件夹中保存Excel的Excel附件

Question

  

可能重复：
  how to save excel file attached in an email received in a defined sub folder in the inbox of outlook 2007 to a folder on the windows?

我真的需要一个outlook vba函数来自动将excel附件保存在名为daily的给定收件箱子文件夹中，并且windows的目标文件夹具有路径C：/ daily reports，所以我感谢您的帮助和支持。

感谢，

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

感谢，