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 та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com