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

Question

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

提前致谢。

汤米

Answer 1

嵌入的 HTML 图像只是常规的图像附件，可以使用 Attachment.SaveAsFile 进行保存。

嵌入式 RTF 图像是另一回事：它们是 OLE 对象，而 Attachment.SaveAsFile 将失败。您可以为此使用Redemption - 它的RDOAttachment .SaveAsFile 将从附件 OLE 存储中提取 WMF、Word、Excel、PowerPoint、PDF 等附件。