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

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

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

2Затем продолжайте и нажмите Формат текста > Текстовый формати затем сохраните и закройте письмо.

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

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

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

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

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

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

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

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

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

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

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

2В левом Обозревателе проектов разверните Проект 1, дважды щелкните, чтобы открыть ThisOutlookSession окно (см. скриншот ниже), а затем вставьте следующий код в окно.

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

Нажмите Инструменты → Ссылки.

4В открывшемся окне Ссылки – Проект 1 для Outlook 2016, пожалуйста, отметьте Microsoft Word 16.0 Object Library ссылку в поле Доступные ссылки и нажмите кнопку OK См. скриншот:

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

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

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

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