如何将电子邮件（即电子邮件）中的附件批量导出到 Outlook 中的另一个文件夹答案

【问题标题】：How to bulk export Attachments from emails (which are emails) to another folder within Outlook如何将电子邮件（即电子邮件）中的附件批量导出到 Outlook 中的另一个文件夹
【发布时间】：2019-01-23 13:57:48
【问题描述】：

我需要从某个范围内的电子邮件中提取 .msg 附件并将其保存到另一个 Outlook 子文件夹中。这目前通过将附件拖到“收件箱”的子文件夹中来工作，但有更快的方法吗？

我搜索了一下，找到了将它们提取到本地文件夹的方法，但我需要将它们包含在 Outlook 中。

感谢任何帮助和建议。

谢谢。

【问题讨论】：

标签： vba outlook

【解决方案1】：

这里有两个问题 - 首先是访问嵌入的消息附件而不先将它们保存为 MSG 文件。其次是导入 MSG 文件 - 您可以使用 Application.CreateItemFromTemplate，但该项目将不发送。您可以使用 Namespace.OpenSharedItem，然后使用 MailItem.Move，但它仍然是一个杂项。

仅在 OOM 中您无能为力。扩展的 MAPI 可以工作，但它只是 C++ 或 Delphi。如果使用 Redemption 是一个选项（我是它的作者），您可以使用 Redemption RDOAttachment 对象公开的 EmbeddeedMsg 属性。您还可以使用RDOMail.CopyTo 并将文件夹作为参数传递以将嵌入的邮件附件复制到文件夹：

Set Session = CreateObject("Redemption.RDOSession")
Session.MAPIOBJECT = Application.Session.MAPIOBJECT
set redItem = Session.GetMessageFromId(OutlookMessage.EntryID)
set redFolder = Session.GetFolderFromId(OutlookFolder.EntryID)
for each attach in redItem.Attachments
  if attach.Type = olEmbeddeditem Then
    attach.EmbeddedMsg.CopyTo OutlookFolder
  End If
next

【讨论】：