Как сохранить вложения при ответе в 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 на левой панели и дважды щелкните значок ThisOutlookSession чтобы открыть ее.

Шаг 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 ключ для запуска этого макроса. В открытии Макрос диалоговое окно, нажмите RunReplyAllWithAttachments если вы хотите ответить всем с вложениями. В противном случае выберите запустить ответ с вложениями, затем нажмите Run кнопку.

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

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

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

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

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

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

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

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

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

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

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

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

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

Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

• Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
• Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
• Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
• Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
• Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.

Больше информации... Скачать сейчас...