Ако сме преобразували HTML имейла в RTF, преди да отговорим, имената на всички прикачени файлове ще бъдат копирани в съобщението за отговор, след като щракнете върху Начало > Отговор в Outlook.

1. Щракнете два пъти, за да отворите имейла, чиито имена на прикачени файлове трябва да копирате, и след това щракнете Събщение > Действия > Редактиране на съобщението в прозореца на съобщението. Вижте екранна снимка:

2. Продължете, за да щракнете Форматиране на текст > Богат текст, след което запазете и затворете имейла.

3. Сега се връщате към основния изглед. Продължете да избирате имейла и щракнете Начало > Отговор.

4. Сега имената на всички прикачени файлове се копират от оригиналния имейл и се поставят в съобщението за отговор, както е показано на екранната снимка по-долу. Моля, съставете съобщението за отговор и го изпратете.

Този метод ще въведе макрос VBA за копиране на имената на всички прикачени файлове, когато отговаряте на имейл, и след това ще поставите имената в тялото на съобщението на имейла за отговор в Outlook.

1, Натиснете Друг + F11 клавиши едновременно, за да отворите прозореца на Microsoft Visual Basic за приложения.

2. В левия Project Explorer разгънете Project 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 справка в полето Налични референции и щракнете върху OK бутон. Вижте екранна снимка:

Забележка: Моля, изберете Библиотека с обекти Microsoft Word 15.0 справка, ако работите с Outlook 2013, или Библиотека с обекти Microsoft Word 14.0 справка с Outlook 2010.

5. Запазете VBA и затворете прозореца на Microsoft Visual Basic за приложения.

6. Сега се връщате към основния интерфейс на Outlook. Изберете имейла, на който ще отговорите, и щракнете Начало > Отговор or Отговори на всички.
Забележка: Ако имената на прикачените файлове не са копирани и поставени в имейла за отговор, моля, рестартирайте вашия Outlook и отговорете отново.

И сега имената на всички прикачени файлове се копират от избрания имейл и се поставят в имейла за отговор. Вижте екранна снимка:

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

1. Изберете имейла, на който ще отговорите, и щракнете Kutools > Инструменти за прикачване > Копиране на имена.

След това се появява диалогов прозорец, който ви казва, че имената на прикачените файлове са копирани в клипборда. Кликнете OK да го затворите.

2. Продължете, за да щракнете Начало > Отговор за да отговорите на избрания имейл.

3. В прозореца на съобщението за отговор поставете курсора в тялото на съобщението и натиснете Ctrl + V клавиши за лесно поставяне на имената на прикачените файлове.

Отговаряйте лесно на избрани имейли с всички оригинални прикачени файлове, съхранявани в Outlook

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