3 brza načina za kopiranje svih slika iz Word dokumenta u Outlook e-poštu

Ako želite da kopirate sve slike iz Word dokumenta u Outlook e-poštu, možete koristiti 3 pristupa predstavljena u ovom članku.

Na primjer, završite Word dokument koji sadrži više slika. Kasnije želite da ponovo koristite ove slike u dokumentu da sastavite Outlook e-poruku. U ovoj situaciji, čeznut ćete za brzim rješenjem za brzo kopiranje slika iz Word dokumenta u e-poštu u Outlooku. Gledajući ovaj zahtjev, ovdje ćemo vas naučiti 3 načina da ga dobijete.

Metoda 1: Kopirajte jednu po jednu

1. Prvo u Outlooku kreirajte novu e-poštu.
2. Zatim otvorite izvorni Word dokument.
3. Zatim odaberite sliku u Word dokumentu.
4. Pritisnite “Ctrl + C” da ga kopirate.
5. Nakon toga pristupite Outlook e-pošti.
6. Na kraju, pritisnite “Ctrl + V” u tijelu poruke da zalijepite kopiranu sliku.
7. Sada koristite ovaj način da kopirate ostale slike iz dokumenta u ovu e-poštu jednu po jednu.

Metoda 2: Sačuvajte slike i grupno umetanje u e-poštu

1. Prvo, u otvorenom Word dokumentu, idite na “File” > “Save As”.
2. Zatim, u iskačućem dijaloškom okviru, odaberite odredišnu mapu i odaberite “Web stranica” u polju “Save as type”.
3. Zatim kliknite na dugme „Sačuvaj“.
4. Nakon toga zatvorite Word aplikaciju kao i obično.
5. Nakon toga kreirajte novu Outlook e-poštu.
6. U prozoru sa porukom pređite na karticu „Umetni“ i kliknite na dugme „Slika“.
7. Kasnije, u novom dijaloškom okviru, idite na lokaciju za spremanje Word dokumenta kao web stranice.
8. Zatim otvorite fasciklu pod nazivom “xxx_files”.
9. Zatim odaberite slike koje želite umetnuti.
10. Na kraju kliknite na dugme „Umetni“.
11. Možete vidjeti da su odabrane slike umetnute u email.

Metoda 3: Paketno kopiranje putem VBA

1. Prvo otvorite Word dokument.
2. Zatim pritisnite “Alt + F11” da pristupite Word VBA editoru.
3. Zatim kopirajte VBA kod ispod u 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. Nakon toga pritisnite taster “F5” da pokrenete ovaj makro.
5. Kada se makro završi, dobit ćete novu Outlook e-poštu koja sadrži sve slike Word dokumenta, kao što je sljedeći snimak ekrana:

Pažljivo vodite računa o svom Outlooku

Svaki obični korisnik je možda bio podložan raznim problemima u Outlooku. Da budem iskren, ako vodite računa o svom Outlooku, možete efikasno izbjeći strašne probleme. Na primjer, vjerovatno morate uvijek zatvoriti Outlook i ne vjerovati nepoznatim porukama e-pošte. Također, pametno je nabaviti kvalificirani alat za popravku PST-a, npr DataNumen Outlook Repair. Može se popraviti corrupt PST problemi poput čepa.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com