excel - 通过 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

有关详细信息，请参阅自动保存 Outlook 附件