3 hurtige måder at kopiere alle billeder fra et Word-dokument til en Outlook-e-mail

Hvis du vil kopiere alle billeder fra et Word-dokument til en Outlook-e-mail, kan du bruge de 3 tilgange, der er introduceret i denne artikel.

For eksempel afslutter du et Word-dokument, der indeholder flere billeder. Senere vil du genbruge disse billeder i dokumentet til at komponere en Outlook-e-mail. I denne situation længes du efter en hurtig løsning til hurtigt at kopiere billederne fra orddokumentet til en e-mail i Outlook. Når vi ser på dette krav, vil vi her lære dig 3 måder at få det på.

Metode 1: Kopier en efter en

1. Først skal du oprette en ny e-mail i Outlook.
2. Åbn derefter kildedokumentet.
3. Vælg derefter et billede i Word-dokumentet.
4. Tryk på "Ctrl + C" for at kopiere det.
5. Derefter adgang til Outlook-e-mailen.
6. Til sidst skal du trykke på "Ctrl + V" i meddelelsens brødtekst for at indsætte det kopierede billede.
7. Brug nu denne måde til at kopiere de andre billeder fra dokumentet til denne e-mail en efter en.

Metode 2: Gem billeder og batchindsats i e-mail

1. Først i det åbnede Word-dokument skal du gå til "File"> "Save As".
2. Vælg derefter en destinationsmappe i popup-dialogboksen, og vælg "Web-side" i feltet "Gem som type".
3. Klik derefter på knappen "Gem".
4. Derefter skal du lukke Word-applikationen som normalt.
5. Opret derefter en ny Outlook-e-mail.
6. I meddelelsesvinduet skal du skifte til fanen "Indsæt" og klikke på knappen "Billede".
7. Senere, i den nye dialogboks, skal du gå til placeringen for at gemme Word-dokumentet som webside.
8. Åbn derefter mappen kaldet “xxx_files”.
9. Vælg derefter de billeder, du vil indsætte.
10. Klik til sidst på knappen "Indsæt".
11. Du kan se, at de valgte billeder er indsat i e-mailen.

Metode 3: Batchkopi via VBA

1. Åbn først Word-dokumentet.
2. Tryk derefter på "Alt + F11" for at få adgang til Word VBA editor.
3. Kopier derefter VBA-koden nedenfor til et 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. Derefter skal du trykke på “F5” -tasten for at køre denne makro.
5. Når makroen er færdig, får du en ny Outlook-e-mail, der indeholder alle billeder af Word-dokument, som følgende skærmbillede:

Pas på din Outlook med omhu

Hver almindelig bruger kan have været udsat for forskellige problemer i Outlook. For at være ærlig kan du undgå forfærdelige problemer effektivt, hvis du tager dig af din Outlook. For eksempel skal du altid lukke din Outlook sandsynligvis og ikke stole på ukendte e-mails let. Det er også klogt at få fat i et kvalificeret PST-fixværktøj, som f.eks DataNumen Outlook Repair. Det kan reparere korrupt PST problemer som en kork.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder mdf opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com