將所有圖像從Word文檔複製到Outlook電子郵件的3種快速方法

如果要將 Word 文檔中的所有圖像複製到 Outlook 電子郵件，可以使用本文介紹的 3 種方法。

例如，您完成一個包含多張圖片的Word文檔。 稍後，您希望在文檔中重複使用這些圖片來撰寫 Outlook 電子郵件。 在這種情況下，您會渴望一個快速的解決方案來快速將圖像從 Word 文檔複製到 Outlook 中的電子郵件。 看看這個要求，這裡我們教你3種方法來獲取。

方法一：一一複制

1. 首先，在 Outlook 中，創建一個新電子郵件。
2. 然後，打開源 Word 文檔。
3. 接下來，在 Word 文檔中選擇一張圖片。
4. 按“Ctrl + C”複製它。
5. 之後，訪問Outlook電子郵件。
6. 最後，在消息正文中按“Ctrl + V”粘貼複製的圖像。
7. 現在，使用這種方式將文檔中的其他圖像一一複製到此電子郵件中。

方法 2：保存圖像並批量插入電子郵件

1. 首先，在打開的 Word 文檔中，轉到“文件”>“另存為”。
2. 然後，在彈出的對話框中，選擇目標文件夾並在“保存類型”字段中選擇“網頁”。
3. 接下來，單擊“保存”按鈕。
4. 之後，照常關閉 Word 應用程序。
5. 隨後，創建一個新的 Outlook 電子郵件。
6. 在消息窗口中，切換到“插入”選項卡並單擊“圖片”按鈕。
7. 稍後，在新對話框中，轉到將 Word 文檔另存為網頁的位置。
8. 然後，打開名為“xxx_files”的文件夾。
9. 接下來，選擇要插入的圖像。
10. 最後，點擊“插入”按鈕。
11. 您可以看到所選圖像已插入到電子郵件中。

方法3：通過VBA批量複製

1. 首先，打開Word文檔。
2. 然後，按“Alt + F11”訪問 Word VBA 編輯器。
3. 接下來，將下面的 VBA 代碼複製到一個模塊中。

Sub CopyImagesToMail()
    Dim objTempDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
 
    'Copy the whole document to a new Temp document
    Selection.WholeStory
    Selection.Copy
 
    Set objTempDocument = Word.Documents.Add
    objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

    For Each objInlineShape In objTempDocument.InlineShapes
        objInlineShape.ConvertToShape
    Next
 
    'Clear text in the Temp document
    With objTempDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[^2-^255]{1,}"
        .Replacement.Text = ""
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
 
    Do While objTempDocument.Shapes.Count > 0
       For Each objShape In objTempDocument.Shapes
           objShape.ConvertToInlineShape
       Next
    Loop
 
    'Copy the images in Temp Document
    objTempDocument.Application.Selection.WholeStory
    objTempDocument.Application.Selection.Copy
 
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new Outlook email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocSelection = objMailDocument.Application.Selection
 
    'Paste the copied images into email
    objDocSelection.Collapse Direction:=wdCollapseStart
    objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
 
    objTempDocument.Close False
End Sub

4. 之後，按“F5”鍵運行這個宏。
5. 宏完成後，您將收到一封新的 Outlook 電子郵件，其中包含 Word 文檔的所有圖像，如下圖所示：

小心照顧你的前景

每個普通用戶在 Outlook 中可能都遇到過各種問題。 說實話，如果你照顧好你的 Outlook，你可以有效地避免可怕的問題。 例如，您可能需要始終關閉Outlook，並且不要輕易信任任何未知的電子郵件。 此外，謹慎使用合格的 PST 修復工具，例如 DataNumen Outlook Repair。 它可以修復 損壞的PST 像軟木塞的問題。

作者簡介：

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