Outlook VBA:从附加电子邮件中获取 Header 信息到电子邮件

Outllook VBA: Get Header Info from attached Email to an Email

挑战描述

我想从 Outlook 文件夹中的电子邮件中提取 header 信息。 到目前为止这有效。 但是有些电子邮件被 Spamassassin 扫描后发现是垃圾邮件。因此,垃圾邮件附加到新邮件中作为 Mail-Attachment。

现在我想从原始 email-header 中提取 header 信息。

我已有的 我正在从 'normal'- 邮件中获取 header 信息,并且可以访问 Outlook-mail-item 并且还找到了附件。

我要找的东西 获取附件的最简单方法是 Outlook-mail-item 以便我可以执行 getHeader-operation 操作。并且,如果可能,无需打开附件邮件。

有没有办法在不打开附件的情况下从 olmailItem 到附加邮件 (.msg-file)?

(手动 - 打开邮件 - 这可以通过打开附件邮件并查看邮件选项来完成。)

Outlook 不允许您直接访问嵌入的邮件附件。最好的办法是调用 Attachment.SaveAsFile 将嵌入的消息附件保存为 MSG 文件,然后使用 Application.Session.OpenSharedItem.

打开它

如果您使用 Redemption is an option (I am its author), it exposes EmbeddedMsg property on both the Attachment object (returned by the SafeMailItem object) and RDOAttachment object (returned by the RDOMail 对象)。