Outlook：将附件自动保存到多个文件夹

Question

我在网上找到了一个脚本，该脚本可用于自动保存1个发件人的1个附件。 我需要调整脚本以自动将附件从多个发件人下载到单独的不同文件夹中。 我尝试复制代码并为其添加“ findinMail”以识别要下载的目标主题。 我惨败了。 谁能帮我 ？ PS：我对编码一无所知，而且不是专业的程序员。 试图拼凑一切。

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

findInMail = "Abc"
sSaveFolder = "c:\temp\abc\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next

findInMail = "xyz"
sSaveFolder = "c:\temp\xyz\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next

End Sub

Answer 1

您可以通过VBA和宏来实现。 如何将多封电子邮件中的所有附件保存到Outlook中的文件夹

请参考此内容并添加其他代码，以将下载文件夹的内容复制到另一个文件夹。

Answer 2

看到这个链接

简而言之，已经有很多实用程序可以完成此任务，就像sumit共享答案一样，已经有可用的现成工具，也有已编译的代码。

PS：为什么要重新发明轮子？

Nirsoft的前景附加视图

MS解决您的问题的方法