3 бързи начина за копиране на всички изображения от документ на Word в имейл на Outlook

Ако искате да копирате всички изображения от документ на Word в имейл на Outlook, можете да използвате трите подхода, въведени в тази статия.

Например завършвате документ на Word, който съдържа множество снимки. По-късно искате да използвате повторно тези снимки в документа, за да съставите имейл на Outlook. В тази ситуация ще копнеете за бързо решение за бързо копиране на изображенията от word документа в имейл в Outlook. Разглеждайки това изискване, тук ще ви научим на 3 начина да го получите.

Метод 1: Копирайте един по един

1. Първо, в Outlook създайте нов имейл.
2. След това отворете изходния документ на Word.
3. След това изберете снимка в документа на Word.
4. Натиснете „Ctrl + C“, за да го копирате.
5. След това достъп до имейл на Outlook.
6. И накрая, натиснете „Ctrl + V“ в тялото на съобщението, за да поставите копираното изображение.
7. Сега използвайте този начин, за да копирате едно по едно другите изображения от документа в този имейл.

Метод 2: Запазване на изображения и вмъкване на партида в имейл

1. Първо в отворения документ на Word отидете на „Файл“> „Запазване като“.
2. След това в изскачащия диалогов прозорец изберете папка за местоназначение и изберете „Уеб страница“ в полето „Запазване като тип“.
3. След това щракнете върху бутона „Запазване“.
4. След това затворете приложението Word както обикновено.
5. Впоследствие създайте нов имейл на Outlook.
6. В прозореца на съобщението преминете към раздела „Вмъкване“ и щракнете върху бутона „Картина“.
7. По-късно в новия диалогов прозорец отидете на мястото за запазване на документа на Word като уеб страница.
8. След това отворете папката, наречена „xxx_files“.
9. След това изберете изображенията, които искате да вмъкнете.
10. Накрая щракнете върху бутона „Вмъкване“.
11. Можете да видите, че избраните изображения са вмъкнати в имейла.

Метод 3: Групово копиране чрез VBA

1. Първо отворете документа на Word.
2. След това натиснете „Alt + F11“ за достъп до редактора на Word VBA.
3. След това копирайте VBA кода по-долу в модул.

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. След това натиснете клавиша “F5”, за да стартирате този макрос.
5. Когато макросът завърши, ще получите нов имейл на Outlook, съдържащ всички изображения на документ на Word, като следната екранна снимка:

Грижете се за вашия Outlook с внимание

Всеки редовен потребител може да е бил обект на различни проблеми в Outlook. За да бъда честен, ако се грижите за вашия Outlook, можете ефективно да избегнете ужасни проблеми. Например, винаги трябва да затваряте вашия Outlook вероятно и да не се доверявате лесно на неизвестни имейли. Също така е разумно да се сдобиете с квалифициран инструмент за фиксиране на PST, като DataNumen Outlook Repair. Може да поправи корумпиран PST въпроси като корк.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com