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

Question

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

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

有人可以建议正确的密码吗？谢谢！

Answer 1

从源头获取文件？

我不明白，如果您要以任何方式单独发送电子邮件，为什么您需要在工作簿中嵌入.PDF对象...

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

---

另一个选项：

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

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

---

另一个选择：

如果更改扩展名，

Excel的XLSM文件只是一个压缩的ZIP文件。您可以通过编程方式制作文件的副本，将其扩展名更改为.ZIP。

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

---

更多信息：

• VBA Express：Save embedded PDF file as a separate PDf file
• 操作方法：How to Extract Images, Text, and Embedded Files from Office Documents