如何使用VBA在Outlook电子邮件中附加嵌入在Excel中的PDF

Question

我已经创建了一个嵌入的pdf文件，其中包含insert>对象>从文件创建>浏览>在excel中显示为图标功能。

然后，我想使用vba代码将嵌入式pdf用作我的Outlook电子邮件的附件。 我尝试使用.Attachment.Add代码，但似乎无法对嵌入式对象进行破解。

谁能提供正确的密码？ 谢谢！

Answer 1

从源头获取文件？

我不明白为什么您要在工作簿中嵌入.PDF对象，如果您无论如何都要单独发送电子邮件的话...

无论如何，您都可以直接从嵌入的相同位置获取实际/原始的.PDF以将副本附加到电子邮件中。 （如果不存在，怎么了？）

---

另外一个选项：

右键单击嵌入的对象后，Excel 2016将“准备就绪”，通过将其解压缩到本地临时文件夹中来打开它。 （我不确定这是否适用于以前的版本。）

因此，可以以编程方式右键单击嵌入的图标，然后检查位于存储在Environ("temp")中的路径处的temp文件夹。 文件的一个或多个副本将位于此处（并且应该是“最新”的PDF）。

---

另一个选择：

如果更改扩展名，则Excel的XLSM文件只是压缩的ZIP文件 。 您可以以编程方式复制该文件，并将其扩展名更改为.ZIP 。

嵌入式对象以.BIN文件的形式存储在xl\\embeddings\\文件夹中的ZIP文件中。 必须将其提取，然后重命名为PDF。 请注意，此方法有点麻烦，并且不适用于所有PDF。

---

更多信息：

• VBA Express： 将嵌入式PDF文件另存为单独的PDf文件
• 入门指南： 如何从Office文档中提取图像，文本和嵌入式文件