3 façons rapides de copier toutes les images d'un document Word vers un e-mail Outlook

Si vous souhaitez copier toutes les images d'un document Word vers un e-mail Outlook, vous pouvez utiliser les 3 approches présentées dans cet article.

Par exemple, vous terminez un document Word qui contient plusieurs images. Plus tard, vous souhaitez réutiliser ces images dans le document pour composer un e-mail Outlook. Dans cette situation, vous aurez envie d'une solution rapide pour copier rapidement les images du document Word vers un e-mail dans Outlook. En regardant cette exigence, nous allons vous apprendre ici 3 façons de l'obtenir.

Méthode 1 : copier un par un

1. Tout d'abord, dans Outlook, créez un nouvel e-mail.
2. Ensuite, ouvrez le document Word source.
3. Ensuite, sélectionnez une image dans le document Word.
4. Appuyez sur "Ctrl + C" pour le copier.
5. Après cela, accédez à la messagerie Outlook.
6. Enfin, appuyez sur "Ctrl + V" dans le corps du message pour coller l'image copiée.
7. Maintenant, utilisez cette méthode pour copier les autres images du document vers cet e-mail une par une.

Méthode 2 : Enregistrer les images et les insérer par lots dans un e-mail

1. Dans un premier temps, dans le document Word ouvert, allez dans "Fichier" > "Enregistrer sous".
2. Ensuite, dans la boîte de dialogue contextuelle, choisissez un dossier de destination et sélectionnez "Page Web" dans le champ "Enregistrer sous le type".
3. Ensuite, cliquez sur le bouton "Enregistrer".
4. Après cela, fermez l'application Word comme d'habitude.
5. Ensuite, créez un nouvel e-mail Outlook.
6. Dans la fenêtre de message, passez à l'onglet "Insérer" et cliquez sur le bouton "Image".
7. Plus tard, dans la nouvelle boîte de dialogue, accédez à l'emplacement d'enregistrement du document Word en tant que page Web.
8. Ensuite, ouvrez le dossier appelé "xxx_files".
9. Ensuite, sélectionnez les images que vous souhaitez insérer.
10. Enfin, cliquez sur le bouton "Insérer".
11. Vous pouvez voir que les images sélectionnées ont été insérées dans l'e-mail.

Méthode 3 : copie par lots via VBA

1. Dans un premier temps, ouvrez le document Word.
2. Ensuite, appuyez sur "Alt + F11" pour accéder à l'éditeur Word VBA.
3. Ensuite, copiez le code VBA ci-dessous dans un 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. Après cela, appuyez sur la touche "F5" pour exécuter cette macro.
5. Une fois la macro terminée, vous recevrez un nouvel e-mail Outlook contenant toutes les images du document Word, comme la capture d'écran suivante :

Soignez vos perspectives avec soin

Chaque utilisateur régulier peut avoir été sujet à divers problèmes dans Outlook. Pour être honnête, si vous prenez soin de votre Outlook, vous pouvez éviter efficacement les problèmes terribles. Par exemple, vous devez toujours fermer votre Outlook et ne pas faire confiance aux e-mails inconnus. En outre, il est prudent de se procurer un outil de réparation PST qualifié, comme DataNumen Outlook Repair. Il peut réparer PST corrompu problèmes comme un bouchon.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupération mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com