Outllook VBA：从连接电子邮件获取的头信息，以电子邮件

Question

挑战说明

我想提取电子邮件标题信息Outlook文件夹中。 这个工程到目前为止。 但有电子邮件哪里被Spamassassin扫描，发现是垃圾邮件。因此，垃圾邮件作为邮件附件附加到新邮件。

现在我想从原始的电子邮件标题中提取标题信息。

我已经有什么 我从“正常”邮件中获取标题信息，并且可以访问Outlook邮件项目，并且还可以找到附件。

我寻找什么 得到附件作为Outlook的邮件项目，这样我可以执行getHeader操作操作最简单的方法。并且，如果可能的话，不需要打开附加的邮件。

有没有办法从olmailItem到附加邮​​件（.msg文件）而不打开附件？

（手动 - 与打开邮件 - 这可以通过打开电子邮件附件发送，并期待在消息选项来完成。）

Answer 1

Outlook不会让你直接访问嵌入邮件附件。您可以通过拨打Attachment.SaveAsFile将嵌入的消息附件保存为MSG文件，然后使用Application.Session.OpenSharedItem将其打开。

如果您在使用Redemption是一个选项，它暴露了两个附件对象（由SafeMailItem对象返回）和RDOAttachment对象（由RDOMail对象返回）上EmbeddedMsg财产。