Как сохранить вложения при ответе в Outlook?

Когда мы пересылаем сообщение электронной почты в Microsoft Outlook, исходные вложения в этом сообщении электронной почты остаются в перенаправленном сообщении. Однако, когда мы отвечаем на сообщение электронной почты, исходные вложения не будут прикреплены к новому ответному сообщению. Здесь мы собираемся познакомить вас с парочкой приемов сохранения исходных вложений при ответе в Microsoft Outlook.

Ответьте с вложениями, вручную скопировав и вставив
Автоматический ответ с вложениями с помощью VBA
Один щелчок, чтобы ответить с вложениями с помощью Kutools for Outlook

Ответьте с вложениями, вручную скопировав и вставив

Мы можем вручную скопировать исходные вложения в сообщения электронной почты и вставить их в окно ответного сообщения, когда мы ответим на сообщение электронной почты позже.

Шаг 1. Щелкните сообщение электронной почты, чтобы просмотреть его в области чтения.

Шаг 2. Щелкните правой кнопкой мыши одно вложение в предварительном просмотре сообщения электронной почты и выберите Выбрать все из контекстного меню.

Шаг 3. Щелкните правой кнопкой мыши выбранные вложения и выберите Копировать из контекстного меню.

Шаг 4. Ответьте на сообщение электронной почты, нажав Ответить Кнопка на Главная вкладка (или на панели инструментов в Outlook 2007).

Шаг 5. В окне «Ответное сообщение» щелкните значок Вставить Кнопка на Сообщение вкладку, чтобы вставить эти вложения.

Если вы используете Outlook 2013 или более позднюю версию, щелкните значок Выскочить в верхнем левом углу области чтения, чтобы открыть окно ответа на сообщение. Нажмите, чтобы узнать больше…

Шаг 6. Составьте ответное сообщение и нажмите Отправить .

Автоматический ответ с вложениями с помощью VBA 

Существует макрос VBA, который может помочь вам автоматически ответить с исходными вложениями.

Примечание. Прежде чем запускать какие-либо макросы VBA, вам необходимо включить макросы в Microsoft Outlook.

Шаг 1. Выберите сообщение электронной почты, на которое вы ответите с вложениями.

Шаг 2: нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

Шаг 3. Разверните объекты Project1 и Microsoft Outlook на левой панели и дважды щелкните значок Эта сессия Outlook чтобы открыть ее.

Шаг 4. Вставьте следующий код в окно ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub
    
Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.currentItem
    End Select
End Function
    
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New Scripting.FileSystemObject
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = ""
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Шаг 5: нажмите F5 ключ для запуска этого макроса. В открытии Макрос диалоговое окно, нажмите ЗапуститьReplyAllWithAttachments если вы хотите ответить всем с вложениями. В противном случае выберите запустить ответ с вложениями, затем нажмите Run .

Затем открывается окно «Ответ на сообщение» с вложением всех исходных вложений.

Шаг 6. Составьте ответное сообщение и нажмите Отправить .

Ответить с вложениями автоматически с помощью Kutools for Outlook

Ассоциация Ответить с прикреплением полезности Kutools for Outlook может помочь вам ответить на электронные письма с оригинальными вложениями всего одним щелчком мыши.

Kutools for Outlook : с более чем 100 удобными надстройками Outlook, бесплатно без ограничений в течение 60 дней.

1. Выберите электронное письмо, содержащее вложения, с которыми нужно ответить.

2. Затем нажмите Кутулс > Ответить с вложением > Ответить с вложением. Смотрите скриншот:

Затем все вложения выбранного электронного письма перечислены в Прилагается поле ответного сообщения. Напишите письмо и отправьте его.

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Один щелчок, чтобы ответить с вложениями с помощью Kutools for Outlook

Статьи по теме:

• Как сохранить вложения при ответе в Outlook?
• Как сохранить все вложения из нескольких писем в папку в Outlook?
• Как удалить все вложения из электронной почты в Outlook?

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите