将 Excel 工作表中的所有图像复制到 Outlook 电子邮件的 2 种快速方法

有时，您可能需要将 Excel 工作表中的所有嵌入图像复制到 Outlook 电子邮件中。 这个时候，你可以看看这篇文章。 在这里，我们将向您介绍 2 种快速方法。

将图像从 Excel 工作表复制到 Outlook 电子邮件很容易。 您只需选择并按“Ctrl + C”即可复制此图像。 然而，如果要复制的图像很多，一张一张地复制无疑是一种愚蠢而乏味的方式。 因此，在这里我们将向您介绍两种更有效的方法。 现在继续阅读以详细了解它们。

方法 1：手动选择并复制 Excel 工作表中的所有图像

1. 首先，打开相应的 Excel 工作表。
2. 然后，按“F5”键按钮。
3. 在弹出的“转到”对话框中，单击“特殊”按钮。
4. 接下来，在新的“Go to Special”对话框中，选择“Objects”并单击“OK”。
5. 一次，所有嵌入的图像都被选中。
6. 现在，按“Ctrl + C”复制所有选定的图像。
7. 之后，启动 Outlook 并创建一封新电子邮件。
8. 稍后，将光标放在邮件正文中，然后按“Ctrl + V”。
9. 立即，所有复制的图像将粘贴到电子邮件正文中，如下图所示。

方法 2：使用 VBA 将工作表中的所有图像复制到电子邮件

1. 首先，在 Excel 中，按“Alt + F11”启动 Excel VBA 编辑器。
2. 然后，将下面的 VBA 代码放入模块或项目中。

Sub CopyImagesToMail()
    Dim objWorksheet As Excel.Worksheet
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Object
    Dim objShape As Excel.Shape
 
    'Get the specific worksheet
    Set objWorksheet = ThisWorkbook.Worksheets(1)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.application")
    Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
 
    'Copy images to the email
    For Each objShape In objWorksheet.Shapes
        objShape.Copy
        objMailDocument.Range(0, 0).Paste
    Next
End Sub

3. 接下来，在当前宏中按“F5”键。
4. 将立即显示一封新电子邮件。
5. 在这里您可能会收到警告，您应该在其中单击“允许”。
6. 最终，特定 Excel 工作表中的所有图像都将出现在电子邮件正文中，如以下屏幕截图所示。

留意有关 Outlook 的所有风险

Outlook 容易受到损坏，因为它周围存在太多威胁，例如病毒、系统故障、硬件故障和电源问题等。 因此，您有必要注意所有这些危险因素。 首先，您永远不要轻易相信来自未知发件人的电子邮件。 此外，您最好定期备份 Outlook 文件。 最后但同样重要的是，为了 修复 PST 及时归档，你应该准备一个尖端的修复工具，比如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的sql 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com