將 Excel 工作表中的所有圖像複製到 Outlook 電子郵件的 2 種快速方法

Outlook解決方案 2025 年 9 月 29 日
立即分享：

有時，您可能需要將 Excel 工作表中的所有嵌入圖像複製到 Outlook 電子郵件中。 這個時候，你可以看看這篇文章。 這裡我們將向您介紹2種快速方法。

將圖像從 Excel 工作表複製到 Outlook 電子郵件非常容易。 您只需選擇並按“Ctrl + C”即可複制該圖像。 然而，如果要復制的圖像很多，一張一張地複制無疑是一種愚蠢而乏味的方式。 因此，在這裡我們將向您介紹兩種更有效的方法。 現在請繼續閱讀以了解它們的詳細信息。

方法 1：手動選擇並複制 Excel 工作表中的所有圖像

  1. 首先，開啟對應的 Excel 工作表。
  2. 然後，按“ F5”鍵按鈕。
  3. 在彈出的“轉到”對話框中，單擊“特殊”按鈕。點擊“特殊”按鈕
  4. 接下來，在新的“轉到特殊”對話框中，選擇“對象”並單擊“確定”。選擇“對象”
  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

VBA 代碼 - 將 Excel 工作表中的所有圖像複製到 Outlook 電子郵件

  1. 接下來，在當前宏中按“F5”鍵。
  2. 一次，將顯示新電子郵件。
  3. 在這裡您可能會收到一條警告，您應該單擊“允許”。允許訪問
  4. 最終，特定 Excel 工作表中的所有圖像都將出現在電子郵件正文中，如以下屏幕截圖所示。電子郵件正文中復制的圖像

留意 Outlook 周圍的所有風險

Outlook 很容易受到損壞，因為它周圍存在太多威脅，例如病毒、系統故障、硬件故障和電源問題等。 因此，您有必要警惕所有這些危險因素。 首先，您永遠不應該輕易相信來自未知發件人的電子郵件。 此外，您最好定期備份您的 Outlook 文件。 最後但並非最不重要的一點是，為了 修復PST 及時歸檔，你應該準備一個尖端的修復工具，比如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的SQL 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。