3 modi rapidi per copiare tutte le immagini da un documento di Word a un'e-mail di Outlook

Se desideri copiare tutte le immagini da un documento Word a un'e-mail di Outlook, puoi utilizzare gli approcci 3 introdotti in questo articolo.

Ad esempio, finisci un documento di Word che contiene più immagini. Successivamente, si desidera riutilizzare queste immagini nel documento per comporre un'e-mail di Outlook. In questa situazione, desidererai una soluzione rapida per copiare rapidamente le immagini dal documento word a un'e-mail in Outlook. Guardando questo requisito, qui ti insegneremo 3 modi per ottenerlo.

Metodo 1: copia uno per uno

1. Prima di tutto, in Outlook, crea una nuova email.
2. Quindi, apri il documento Word di origine.
3. Successivamente, seleziona un'immagine nel documento di Word.
4. Premi "Ctrl + C" per copiarlo.
5. Successivamente, accedi all'e-mail di Outlook.
6. Infine, premi "Ctrl + V" nel corpo del messaggio per incollare l'immagine copiata.
7. Ora, usa questo modo per copiare una per una le altre immagini dal documento a questa e-mail.

Metodo 2: salva immagini e inserisci in batch nell'e-mail

1. All'inizio, nel documento Word aperto, vai su "File" > "Salva con nome".
2. Quindi, nella finestra di dialogo popup, scegli una cartella di destinazione e seleziona "Pagina Web" nel campo "Salva come".
3. Successivamente, fai clic sul pulsante "Salva".
4. Successivamente, chiudi l'applicazione Word normalmente.
5. Successivamente, crea una nuova email di Outlook.
6. Nella finestra del messaggio, passare alla scheda "Inserisci" e fare clic sul pulsante "Immagine".
7. Successivamente, nella nuova finestra di dialogo, vai alla posizione per salvare il documento di Word come pagina web.
8. Quindi, apri la cartella chiamata "xxx_files".
9. Successivamente, seleziona le immagini che desideri inserire.
10. Infine, fai clic sul pulsante "Inserisci".
11. Puoi vedere che le immagini selezionate sono state inserite nell'e-mail.

Metodo 3: copia in batch tramite VBA

1. All'inizio, apri il documento di Word.
2. Quindi, premi "Alt + F11" per accedere all'editor VBA di Word.
3. Quindi, copia il codice VBA di seguito in un modulo.

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. Successivamente, premi il tasto "F5" per eseguire questa macro.
5. Al termine della macro, riceverai una nuova e-mail di Outlook contenente tutte le immagini del documento di Word, come il seguente screenshot:

Prenditi cura delle tue prospettive con cura

Ogni utente normale potrebbe essere stato soggetto a vari problemi in Outlook. Ad essere onesti, se ti prendi cura del tuo Outlook, puoi evitare problemi terribili in modo efficace. Ad esempio, è necessario chiudere sempre probabilmente Outlook e non fidarsi prontamente di e-mail sconosciute. Inoltre, è prudente procurarsi uno strumento di riparazione PST qualificato, come DataNumen Outlook Repair. Può riparare PST corrotto problemi come un tappo di sughero.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recupero mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com