Outllook VBA：从附加的电子邮件到电子邮件获取标题信息

Question

挑战说明

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

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

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

我在寻找什么 将附件作为Outlook-mail-item获取的最简单方法，以便我可以执行getHeader操作操作。并且，如果可能的话，无需打开附加的邮件。

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

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

Answer 1

Outlook不允许您直接访问嵌入式邮件附件。您可以做的最好的事情是调用Attachment.SaveAsFile将嵌入邮件附件保存为MSG文件，然后使用Application.Session.OpenSharedItem打开它。

如果使用Redemption是一个选项，它会在Attachment对象（由SafeMailItem对象返回）和RDOAttachment对象（由{{3}返回）上公开EmbeddedMsg属性。 } object）。