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

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

Na primjer, završili ste Word dokument koji sadrži više slika. Kasnije želite ponovno upotrijebiti te slike u dokumentu za sastavljanje Outlook e-pošte. U ovoj ćete situaciji čeznuti za brzim rješenjem za brzo kopiranje slika iz Word dokumenta u e-poštu u programu Outlook. Gledajući ovaj zahtjev, ovdje ćemo vas naučiti 3 načina da ga dobijete.

Metoda 1: Kopirajte jedan po jedan

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

Metoda 2: Spremanje slika i grupno umetanje u e-poštu

1. Najprije u otvorenom Word dokumentu idite na “Datoteka” > “Spremi kao”.
2. Zatim u skočnom dijaloškom okviru odaberite odredišnu mapu i odaberite "Web-stranica" u polju "Spremi kao vrstu".
3. Zatim kliknite gumb "Spremi".
4. Nakon toga zatvorite Word aplikaciju na uobičajeni način.
5. Nakon toga izradite novu Outlook e-poštu.
6. U prozoru poruke prijeđite na karticu "Umetni" i kliknite gumb "Slika".
7. Kasnije, u novom dijaloškom okviru, idite na mjesto za spremanje Word dokumenta kao web stranice.
8. Zatim otvorite mapu pod nazivom “xxx_files”.
9. Zatim odaberite slike koje želite umetnuti.
10. Na kraju kliknite gumb "Umetni".
11. Možete vidjeti da su odabrane slike umetnute u e-poštu.

Metoda 3: Skupno kopiranje putem VBA

1. Najprije otvorite Word dokument.
2. Zatim pritisnite “Alt + F11” za pristup uređivaču Word VBA.
3. Zatim kopirajte donji VBA kod 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 tipku “F5” za pokretanje ove makronaredbe.
5. Kada makronaredba završi, dobit ćete novu Outlook e-poštu koja sadrži sve slike Word dokumenta, poput sljedeće snimke zaslona:

Brinite o svom Outlooku s pažnjom

Svaki redoviti korisnik možda je bio izložen raznim problemima u programu Outlook. Da budem iskren, ako se brinete za svoj Outlook, možete učinkovito izbjeći strašne probleme. Na primjer, vjerojatno morate uvijek zatvoriti Outlook i ne vjerovati bilo kojoj nepoznatoj e-pošti. Također, pametno je nabaviti kvalificirani alat za popravak PST-a, kao što je DataNumen Outlook Repair. Može se popraviti pokvareni PST pitanja poput čepa.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com