Если перед ответом мы преобразовали электронное письмо в формате HTML в формат RTF, имена всех вложений будут скопированы в ответное сообщение после нажатия «Главная»> «Ответить» в Outlook.

1. Дважды щелкните, чтобы открыть электронное письмо, имена вложений которого необходимо скопировать, а затем щелкните Сообщение > Действия > Редактировать сообщение в окне сообщения. Смотрите скриншот:

2. Продолжайте нажимать Формат текста > Богатый текст, а затем сохраните и закройте электронное письмо.

3. Теперь вы вернетесь к основному виду. Продолжайте выбирать адрес электронной почты и нажмите Главная > Ответить.

4. Теперь имена всех вложений копируются из исходного письма и вставляются в ответное сообщение, как показано на скриншоте ниже. Составьте ответное сообщение и отправьте его.

Этот метод представит макрос VBA для копирования имен всех вложений при ответе на электронное письмо, а затем вставит имена в тело сообщения ответного электронного письма в Outlook.

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

2. В левом обозревателе проектов разверните Project 1, дважды щелкните, чтобы открыть Эта сессия Outlook окно (см. снимок экрана ниже), а затем вставьте приведенный ниже код в окно.

VBA: копирование имени всех вложений при ответе на электронное письмо в Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Нажмите Инструменты > Рекомендации.

4. В открывшемся окне Ссылки - Проект 1 для Outlook 2016 проверьте Библиотека объектов Microsoft Word 16.0 ссылку в поле Доступные ссылки и щелкните OK кнопка. Смотрите скриншот:

Внимание: Пожалуйста, выберите Библиотека объектов Microsoft Word 15.0 ссылку, если вы работаете с Outlook 2013, или Библиотека объектов Microsoft Word 14.0 ссылка на Outlook 2010.

5. Сохраните VBA и закройте окно Microsoft Visual Basic для приложений.

6. Теперь вы вернетесь в основной интерфейс Outlook. Выберите письмо, на которое вы ответите, и нажмите Главная > Ответить or Ответить всем.
Внимание: Если имена вложений не копируются и не вставляются в ответное электронное письмо, перезапустите Outlook и ответьте еще раз.

И теперь имена всех вложений копируются из выбранного письма и вставляются в ответное письмо. Смотрите скриншот:

Если вы только что Kutools for Outlook установлен, вы можете применить его Копировать имена функция, позволяющая быстро скопировать все имена вложений из полученного сообщения электронной почты, а затем легко вставить ответное сообщение в Outlook.

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

Затем появится диалоговое окно с сообщением, что имена вложений скопированы в буфер обмена. Нажмите OK закрыть его.

2. Продолжайте нажимать Главная > Ответить чтобы ответить на выбранное письмо.

3. В окне ответного сообщения поместите курсор в текст сообщения и нажмите Ctrl + V клавиши, чтобы легко вставить имена вложений.

Легко отвечайте на выбранные электронные письма со всеми исходными вложениями, хранящимися в Outlook

Как правило, исходные вложения удаляются при ответе на электронное письмо в Outlook. Но с фантастической Ответить с вложением функция Kutools for Outlook, вы можете легко сохранить все вложения писем при ответе на них в Outlook.