Om du vill kopiera alla bilder från ett Word-dokument till ett Outlook-e-postmeddelande kan du använda de tre tillvägagångssätten som presenteras i den här artikeln.
Till exempel avslutar du ett Word-dokument som innehåller flera bilder. Senare vill du återanvända dessa bilder i dokumentet för att skapa en Outlook-e-post. I den här situationen längtar du efter en snabb lösning för att snabbt kopiera bilderna från orddokumentet till ett e-postmeddelande i Outlook. Om vi tittar på detta krav lär vi dig tre sätt att få det.

Metod 1: Kopiera en efter en
- Först och främst, i Outlook, skapa ett nytt e-postmeddelande.
- Öppna sedan källordet Word.
- Välj sedan en bild i Word-dokumentet.
- Tryck på "Ctrl + C" för att kopiera det.
- Därefter får du tillgång till Outlook-e-postmeddelandet.
- Slutligen trycker du på "Ctrl + V" i meddelandetexten för att klistra in den kopierade bilden.
- Använd nu detta sätt för att kopiera de andra bilderna från dokumentet till det här e-postmeddelandet en efter en.
Metod 2: Spara bilder och gruppinsatser i e-post
- Först i det öppnade Word-dokumentet, gå till "Arkiv"> "Spara som".
- Välj sedan en destinationsmapp i popup-dialogrutan och välj "Webbsida" i fältet "Spara som typ".
- Klicka sedan på knappen "Spara".
- Stäng sedan Word-applikationen som vanligt.
- Skapa sedan ett nytt Outlook-e-postmeddelande.
- I meddelandefönstret flyttar du till fliken "Infoga" och klickar på "Bild" -knappen.
- Senare, i den nya dialogrutan, gå till platsen för att spara Word-dokumentet som webbsida.
- Öppna sedan mappen som heter “xxx_files”.
- Välj sedan de bilder som du vill infoga.
- Slutligen klickar du på "Infoga" -knappen.
- Du kan se att de valda bilderna har infogats i e-postmeddelandet.
Metod 3: Partikopiering via VBA
- Först öppnar du Word-dokumentet.
- Tryck sedan på "Alt + F11" för att komma åt Word VBA-redigeraren.
- Kopiera sedan VBA-koden nedan till en 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
- Tryck därefter på “F5” för att köra detta makro.
- När makrot är klart får du ett nytt Outlook-e-postmeddelande som innehåller alla bilder i Word-dokument, som följande skärmdump:
Ta hand om din Outlook med försiktighet
Varje vanlig användare kan ha utsatts för olika problem i Outlook. För att vara ärlig, om du tar hand om din Outlook kan du effektivt undvika fruktansvärda problem. Till exempel måste du alltid stänga din Outlook förmodligen och inte lita på några okända e-postmeddelanden. Det är också klokt att få tag på ett kvalificerat PST-fixverktyg, som DataNumen Outlook Repair. Det kan reparera korrupt PST frågor som en kork.
Författarintroduktion:
Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive mdf-återställning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com







