Kui soovite kopeerida kõik pildid Wordi dokumendist Outlooki meili, saate kasutada selles artiklis tutvustatud kolme lähenemisviisi.
Näiteks lõpetate mitut pilti sisaldava Wordi dokumendi. Hiljem soovite neid pilte dokumendis Outlooki meili koostamiseks uuesti kasutada. Sellises olukorras igatsete kiiret lahendust piltide kiireks kopeerimiseks Wordi dokumendist Outlookis e-kirja. Vaadates seda nõuet, õpetame siin teile 3 võimalust selle saavutamiseks.

1. meetod: kopeerige ükshaaval
- Kõigepealt looge Outlookis uus e-kiri.
- Seejärel avage Wordi lähtedokument.
- Järgmisena valige Wordi dokumendis pilt.
- Selle kopeerimiseks vajutage "Ctrl + C".
- Pärast seda pääsete juurde Outlooki meilile.
- Lõpuks vajutage kopeeritud pildi kleepimiseks sõnumi kehas klahvikombinatsiooni Ctrl + V.
- Nüüd kasutage seda võimalust, et kopeerida ükshaaval dokumendist sellele meilile teised pildid.
2. meetod: salvestage pildid ja sisestage pakettpostitusse
- Avatud Wordi dokumendis minge esmalt "Fail" > "Salvesta nimega".
- Seejärel valige hüpikaknas dialoogiboksis sihtkaust ja valige väljal "Salvesta tüüp" "Veebileht".
- Järgmisena klõpsake nuppu "Salvesta".
- Pärast seda sulgege Wordi rakendus nagu tavaliselt.
- Seejärel looge uus Outlooki meiliaadress.
- Minge sõnumiaknas vahekaardile "Lisa" ja klõpsake nuppu "Pilt".
- Hiljem minge uues dialoogiboksis Wordi dokumendi veebilehena salvestamise kohta.
- Seejärel avage kaust nimega "xxx_files".
- Järgmisena valige pildid, mida soovite lisada.
- Lõpuks klõpsake nuppu "Sisesta".
- Näete, et valitud pildid on meili sisestatud.
3. meetod: pakkkoopia VBA kaudu
- Kõigepealt avage Wordi dokument.
- Seejärel vajutage Wordi VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
- Järgmisena kopeerige allolev VBA kood moodulisse.
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
- Pärast seda vajutage selle makro käivitamiseks klahvi "F5".
- Kui makro on lõppenud, saate uue Outlooki meilisõnumi, mis sisaldab kõiki Wordi dokumendi pilte, nagu järgmine ekraanipilt:
Hoolitsege oma Outlooki eest hoolikalt
Igal tavakasutajal võis Outlookis esineda erinevaid probleeme. Ausalt öeldes saate oma Outlooki eest hoolitsedes kohutavaid probleeme tõhusalt vältida. Näiteks peate tõenäoliselt alati oma Outlooki sulgema ja mitte usaldama tundmatuid e-kirju. Samuti on mõistlik hankida kvalifitseeritud PST-parandustööriist, näiteks DataNumen Outlook Repair. Seda saab parandada korrumpeerunud PST probleeme nagu kork.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom







