通过VBA在本地保存Outlook附件

Question

我目前正在从事一个项目，但是在本地保存电子邮件附件时遇到了一些麻烦。

我目前设置了一个Outlook规则，该规则将所有相关电子邮件定向到Outlook文件夹。我想以编程方式提取所有这些电子邮件附件，并将它们全部保存到本地计算机上的一个文件夹中。

如何将附件拉​​到指定位置？谢谢！

Answer 1

请尝试以下代码：

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

有关更多信息，请参见automatically Save outlook attachment