3 Quick Ways to Copy All Images from a Word Document to an Outlook Email

If you want to copy all images from a Word document to an Outlook email, you can use the 3 approaches introduced in this article.

For instance, you finish a Word document that contains multiple pictures. Later, you want to reuse these pictures in the document to compose an Outlook email. In this situation, you’ll long for a quick solution to quickly copy the images from the word document to an email in Outlook. Looking at this requirement, here we will teach you 3 ways to get it.

Method 1: Copy One by One

1. First off, in Outlook, create a new email.
2. Then, open the source Word document.
3. Next, select a picture in the Word document.
4. Press “Ctrl + C” to copy it.
5. After that, access to the Outlook email.
6. Lastly, press “Ctrl + V” in the message body to paste the copied image.
7. Now, use this way to copy the other images from the document to this email one by one.

Method 2: Save Images & Batch Insert into Email

1. At first, in the opened Word document, go to “File” > “Save As”.
2. Then, in the popup dialog box, choose a destination folder and select “Web Page” in the “Save as type” field.
3. Next, click “Save” button.
4. After that, close Word application as normal.
5. Subsequently, create a new Outlook email.
6. In the message window, shift to “Insert” tab and click “Picture” button.
7. Later, in the new dialog box, go to the location for saving the Word document as web page.
8. Then, open the folder called as “xxx_files”.
9. Next, select the images that you want to insert.
10. Finally, click “Insert” button.
11. You can see that the selected images have been inserted into the email.

Method 3: Batch Copy via VBA

1. At first, open the Word document.
2. Then, press “Alt + F11” to access Word VBA editor.
3. Next, copy the VBA code below into a module.

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. After that, press “F5” key to run this macro.
5. When macro finishes, you will get a new Outlook email containing all images of Word document, like the following screenshot:

Look after Your Outlook with Care

Each regular user may have been subject to various problems in Outlook. To be honest, if you take care of your Outlook, you can avoid terrible issues effectively. For example, you need to always close your Outlook probably and not trust any unknown emails readily. Also, it is prudent to get hold of a qualified PST fix tool, like DataNumen Outlook Repair. It can repair corrupt PST issues like a cork.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including mdf recovery and outlook repair software products. For more information visit www.datanumen.com