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

Question

我在网上找到了一个脚本，它可以自动保存1个发件人的1个附件。 我需要调整脚本以自动将多个发件人的附件下载到单独的不同文件夹中。我尝试复制代码并添加＆＃34; findinMail＆＃34;它可以识别下载的目标主题。我悲惨地失败了。谁能帮我 ？ 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＆amp;宏。 How To Save All Attachments From Multiple Emails To Folder In Outlook

请参阅此处并添加额外代码以将下载文件夹内容复制到另一个文件夹。

Answer 2

请参阅此Link

简而言之，已经有很多实用程序可以完成这项工作，就像sumit分享答案一样，已经有一个现成的工具可用，还有编译代码。

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

Nirsoft's outlook attach view

Solution for your problem by MS