使用MS-Access VBA获取MS-Outlook嵌入式图像并将其保存在文件系统中

Question

我有一个关于MS-Outlook和MS-Access VBA的非常特殊的问题。我想从Outlook导入电子邮件数据到数据库（以及文件系统>附件和嵌入式图像）。使用Google，我找到了获取电子邮件的方法。电子邮件属性和附件。但我也需要嵌入在富文本和html电子邮件中的图像。有没有办法通过VBA来实现这一点？

在此先感谢。

汤米

Answer 1

嵌入式HTML图像只是普通的图像附件，并且可以使用Attachment.SaveAsFile保存。

嵌入式RTF图像是一个不同的故事：它们是OLE对象，并且Attachment.SaveAsFile将失败。您可以使用Redemption - 它的RDOAttachment .SaveAsFile将从附件OLE存储中提取WMF，Word，Excel，PowerPoint，PDF等附件。