VBA - 将附件移动到收件箱子文件夹

Question

我想在Outlook中创建以下规则：

每当来自（1）特定地址的电子邮件和（2）具有特定主题的电子邮件我想运行一个脚本，将电子邮件的附件移动到收件箱子文件夹（我们称之为MyFolder）。

所以只是说清楚：我不想将附件保存到硬盘文件夹。

我可以执行第1步和第2步，但是第3步的代码出现问题。大多数相关问题都涉及将附件保存到硬盘文件夹。

我真的很感谢你的帮助！

的Dmitri

Answer 1

  

我在这个例子中找到了   https://www.extendoffice.com/documents/outlook/3747-outlook-auto-download-save-attachments-to-folder.html

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
  Dim oAttachment As Outlook.Attachment
  Dim sSaveFolder As String

  sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
  For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
  Next

End Sub

您还可以添加规则（页面中会显示分步示例）。

Answer 2

Outlook文件夹无法包含文件。如果文档项是Office文档（如Word或Excel），则需要创建该文档项。或者您必须创建一个Outlook项目并将附加文件添加到它。

您可能会发现Getting Started with VBA in Outlook 2010文章很有帮助。