3 raske måter å kopiere alle bilder fra et Word-dokument til en Outlook-e-post

Hvis du vil kopiere alle bilder fra et Word-dokument til en Outlook-e-post, kan du bruke de 3 tilnærmingene som er introdusert i denne artikkelen.

For eksempel fullfører du et Word-dokument som inneholder flere bilder. Senere vil du gjenbruke disse bildene i dokumentet for å lage en Outlook-e-post. I denne situasjonen vil du lengte etter en rask løsning for raskt å kopiere bildene fra Word-dokumentet til en e-post i Outlook. Når vi ser på dette kravet, vil vi her lære deg 3 måter å få det på.

Metode 1: Kopier en etter en

1. Først av, i Outlook, opprett en ny e-post.
2. Åpne deretter Word-kildedokumentet.
3. Velg deretter et bilde i Word-dokumentet.
4. Trykk "Ctrl + C" for å kopiere den.
5. Etter det får du tilgang til Outlook-e-posten.
6. Til slutt, trykk "Ctrl + V" i meldingsteksten for å lime inn det kopierte bildet.
7. Bruk nå denne måten til å kopiere de andre bildene fra dokumentet til denne e-posten én etter én.

Metode 2: Lagre bilder og batchinnsetting i e-post

1. Først, i det åpnede Word-dokumentet, gå til "Fil"> "Lagre som".
2. Velg deretter en destinasjonsmappe i popup-dialogboksen og velg "Web Page" i feltet "Lagre som type".
3. Klikk deretter på "Lagre"-knappen.
4. Etter det, lukk Word-applikasjonen som normalt.
5. Deretter oppretter du en ny Outlook-e-post.
6. I meldingsvinduet, skift til "Sett inn"-fanen og klikk på "Bilde" -knappen.
7. Senere, i den nye dialogboksen, gå til stedet for å lagre Word-dokumentet som nettside.
8. Åpne deretter mappen som heter "xxx_files".
9. Deretter velger du bildene du vil sette inn.
10. Til slutt klikker du på "Sett inn"-knappen.
11. Du kan se at de valgte bildene er satt inn i e-posten.

Metode 3: Batch Copy via VBA

1. Først åpner du Word-dokumentet.
2. Trykk deretter "Alt + F11" for å få tilgang til Word VBA-editor.
3. Deretter kopierer du VBA-koden nedenfor til en modul.

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. Etter det, trykk "F5"-tasten for å kjøre denne makroen.
5. Når makroen er ferdig, vil du få en ny Outlook-e-post som inneholder alle bilder av Word-dokument, som følgende skjermbilde:

Ta vare på Outlook med omhu

Hver vanlig bruker kan ha vært utsatt for ulike problemer i Outlook. For å være ærlig, hvis du tar vare på Outlook, kan du unngå forferdelige problemer effektivt. For eksempel må du sannsynligvis alltid lukke Outlook og ikke stole på ukjente e-poster lett. Det er også klokt å få tak i et kvalifisert PST-fixverktøy, som DataNumen Outlook Repair. Den kan reparere korrupt PST problemer som en kork.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf gjenoppretting og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med