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

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

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

2. Затем нажмите Текст > Формат RTF, а после — «Сохранить и закрыть письмо».

3. Теперь вы снова в основном представлении. Выделите это письмо и нажмите Главная > Ответить.

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

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

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

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

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

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

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

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

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

1. Нажмите одновременно клавиши 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

3. Нажмите Сервис > Ссылки.

4. В открывшемся окне «Ссылки – Проект 1» для Outlook 2016 установите флажок напротив ссылки Microsoft Word 16,0 Object Library в списке доступных ссылок и нажмите кнопку ОК. См. снимок экрана:

Примечание: выберите ссылку Microsoft Word 15,0 Object Library, если вы работаете с Outlook 2013, или ссылку Microsoft Word 14,0 Object Library для Outlook 2010.

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

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

Теперь имена всех вложений из выбранного письма скопированы и вставлены в ответное сообщение. См. снимок экрана: