3 ātrie veidi, kā kopēt visus attēlus no Word dokumenta uz Outlook e-pastu

Ja vēlaties kopēt visus attēlus no Word dokumenta uz Outlook e-pastu, varat izmantot 3 šajā rakstā ieviestās pieejas.

Piemēram, jūs pabeidzat Word dokumentu, kas satur vairākus attēlus. Vēlāk šos dokumentā esošos attēlus vēlaties atkārtoti izmantot, lai sastādītu Outlook e-pastu. Šajā situācijā jūs ilgojaties pēc ātra risinājuma, lai ātri kopētu attēlus no dokumenta Word uz e-pastu programmā Outlook. Aplūkojot šo prasību, šeit mēs iemācīsim jums 3 veidus, kā to iegūt.

1. metode: kopējiet pa vienam

1. Pirmkārt, programmā Outlook izveidojiet jaunu e-pastu.
2. Pēc tam atveriet Word avota dokumentu.
3. Pēc tam atlasiet attēlu Word dokumentā.
4. Nospiediet “Ctrl + C”, lai to nokopētu.
5. Pēc tam piekļūt Outlook e-pastam.
6. Visbeidzot, ziņojuma pamattekstā nospiediet “Ctrl + V”, lai ielīmētu nokopēto attēlu.
7. Tagad izmantojiet šo veidu, lai pa vienam kopētu pārējos attēlus no dokumenta uz šo e-pastu.

2. metode: saglabājiet attēlus un pakešdatus e-pastā

1. Sākumā atvērtajā Word dokumentā dodieties uz “File”> “Save As”.
2. Pēc tam uznirstošajā dialoglodziņā izvēlieties mērķa mapi un laukā “Saglabāt kā tipu” atlasiet “Web lapa”.
3. Pēc tam noklikšķiniet uz pogas Saglabāt.
4. Pēc tam aizveriet Word lietojumprogrammu kā parasti.
5. Pēc tam izveidojiet jaunu Outlook e-pastu.
6. Ziņojuma logā pārejiet uz cilni “Ievietot” un noklikšķiniet uz pogas “Attēls”.
7. Vēlāk jaunajā dialoglodziņā dodieties uz vietu, kur Word dokumentu saglabāt kā tīmekļa lapu.
8. Pēc tam atveriet mapi ar nosaukumu “xxx_files”.
9. Pēc tam atlasiet attēlus, kurus vēlaties ievietot.
10. Visbeidzot, noklikšķiniet uz pogas “Ievietot”.
11. Var redzēt, ka atlasītie attēli ir ievietoti e-pastā.

3. metode: sērijveida kopēšana, izmantojot VBA

1. Sākumā atveriet Word dokumentu.
2. Pēc tam nospiediet “Alt + F11”, lai piekļūtu Word VBA redaktoram.
3. Pēc tam kopējiet zemāk esošo VBA kodu 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. Pēc tam nospiediet taustiņu “F5”, lai palaistu šo makro.
5. Kad makro būs pabeigts, jūs saņemsit jaunu Outlook e-pasta ziņojumu, kurā būs visi Word dokumenta attēli, piemēram, šis ekrānuzņēmums:

Rūpīgi pieskatiet savu programmu Outlook

Katram parastajam lietotājam programmā Outlook var būt bijušas dažādas problēmas. Ja godīgi, ja rūpējaties par savu Outlook, varat efektīvi izvairīties no briesmīgām problēmām. Piemēram, jums, iespējams, vienmēr ir jāaizver sava programma un neuzticieties nevienam nezināmam e-pastam. Tāpat ir saprātīgi iegūt kvalificētu PST labošanas rīku, piemēram, DataNumen Outlook Repair. To var salabot korumpēts PST tādi jautājumi kā korķis.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar