3 hitri načini za kopiranje vseh slik iz Wordovega dokumenta v Outlookovo e-pošto

Če želite kopirati vse slike iz Wordovega dokumenta v Outlookovo e-pošto, lahko uporabite 3 pristope, predstavljene v tem članku.

Na primer, dokončate Wordov dokument, ki vsebuje več slik. Pozneje želite te slike znova uporabiti v dokumentu za sestavljanje Outlookove e-pošte. V tej situaciji boste hrepeneli po hitri rešitvi za hitro kopiranje slik iz dokumenta Word v e-pošto v Outlooku. Če pogledamo to zahtevo, vas bomo tukaj naučili 3 načine, kako jo pridobiti.

1. način: Kopirajte enega za drugim

1. Najprej v Outlooku ustvarite novo e-pošto.
2. Nato odprite izvorni Wordov dokument.
3. Nato izberite sliko v Wordovem dokumentu.
4. Pritisnite "Ctrl + C", da ga kopirate.
5. Po tem dostop do e-pošte Outlook.
6. Nazadnje pritisnite »Ctrl + V« v telesu sporočila, da prilepite kopirano sliko.
7. Zdaj uporabite ta način, da eno za drugo kopirate druge slike iz dokumenta v to e-pošto.

2. način: Shranjevanje slik in paketno vstavljanje v e-pošto

1. Najprej v odprtem Wordovem dokumentu pojdite na »Datoteka« > »Shrani kot«.
2. Nato v pojavnem pogovornem oknu izberite ciljno mapo in v polju »Shrani kot vrsto« izberite »Spletna stran«.
3. Nato kliknite gumb »Shrani«.
4. Po tem zaprite aplikacijo Word kot običajno.
5. Nato ustvarite novo Outlookovo e-pošto.
6. V oknu sporočila se premaknite na zavihek »Vstavi« in kliknite gumb »Slika«.
7. Kasneje v novem pogovornem oknu pojdite na mesto za shranjevanje Wordovega dokumenta kot spletne strani.
8. Nato odprite mapo z imenom »xxx_files«.
9. Nato izberite slike, ki jih želite vstaviti.
10. Na koncu kliknite gumb »Vstavi«.
11. Vidite lahko, da so bile izbrane slike vstavljene v e-pošto.

3. način: paketno kopiranje prek VBA

1. Najprej odprite Wordov dokument.
2. Nato pritisnite »Alt + F11« za dostop do urejevalnika Word VBA.
3. Nato kopirajte spodnjo kodo VBA v 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. Po tem pritisnite tipko "F5", da zaženete ta makro.
5. Ko se makro konča, boste prejeli novo Outlookovo e-poštno sporočilo, ki vsebuje vse slike Wordovega dokumenta, kot je ta posnetek zaslona:

Skrbno skrbite za svoj Outlook

Vsak običajni uporabnik je morda imel različne težave v Outlooku. Iskreno povedano, če skrbite za svoj Outlook, se lahko učinkovito izognete strašnim težavam. Verjetno morate na primer vedno zapreti svoj Outlook in ne zaupati neznanim e-poštnim sporočilom. Prav tako je pametno dobiti kvalificirano orodje za popravljanje PST, kot je DataNumen Outlook Repair. Lahko se popravi pokvarjen PST vprašanja kot zamašek.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z izterjava mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com