Se tivermos convertido o e-mail HTML para RTF antes de responder, todos os nomes dos anexos serão copiados para a mensagem de resposta após clicar em Início> Responder no Outlook.

1. Clique duas vezes para abrir o e-mail cujos nomes de anexos você precisa copiar e clique em Mensagem > Opções > Editar Mensagem na janela de mensagem. Veja a imagem:

2. Vá em frente para clicar Formatar Texto > rich Text, salve e feche o e-mail.

3. Agora você retorna à visualização principal. Continue selecionando o e-mail e clique em Início > Resposta.

4. Agora, os nomes de todos os anexos são copiados do e-mail original e colados na mensagem de resposta conforme a captura de tela abaixo. Por favor, escreva a mensagem de resposta e envie-a.

Este método apresentará uma macro VBA para copiar os nomes de todos os anexos ao responder um e-mail e, em seguida, colar os nomes no corpo da mensagem do e-mail de resposta no Outlook.

1. pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.

2. No Explorador de Projetos esquerdo, expanda o Projeto 1, clique duas vezes para abrir o Esta sessão do Outlook janela (veja a captura de tela abaixo) e, em seguida, cole o código abaixo na janela.

VBA: Copie o nome de todos os anexos ao responder um e-mail no 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. Clique Ferramentas > Referência.

4. Na janela de abertura Referências - Projeto 1 para Outlook 2016, verifique o Biblioteca de objetos do Microsoft Word 16.0 referência na caixa Referências disponíveis e clique no OK botão. Veja a imagem:

Anote os: Selecione o Biblioteca de objetos do Microsoft Word 15.0 referência se você estiver trabalhando com Outlook 2013, ou Biblioteca de objetos do Microsoft Word 14.0 referência com Outlook 2010.

5. Salve o VBA e feche a janela Microsoft Visual Basic for Applications.

6. Agora você retorna à interface principal do Outlook. Selecione o e-mail que você irá responder e clique em Início > Resposta or Responder todos.
Anote os: Se os nomes dos anexos não forem copiados e colados no e-mail de resposta, reinicie o Outlook e responda novamente.

E agora todos os nomes dos anexos são copiados do e-mail selecionado e colados no e-mail de resposta. Veja a imagem:

Se você tem Kutools for Outlook instalado, você pode aplicar seu Copiar nomes recurso para copiar rapidamente todos os nomes de anexo de um e-mail recebido e, em seguida, colar sua mensagem de resposta facilmente no Outlook.

1. Selecione o e-mail que você irá responder e clique em Kutools > Ferramentas de Anexo > Copiar nomes.

Em seguida, uma caixa de diálogo é exibida e informa que os nomes dos anexos foram copiados para a área de transferência. Clique OK para fechá-lo.

2. Vá em frente para clicar Início > Resposta para responder ao e-mail selecionado.

3. Na janela da mensagem de resposta, coloque o cursor no corpo da mensagem e pressione Ctrl + V teclas para colar os nomes dos anexos facilmente.

Responda facilmente e-mails selecionados com todos os anexos originais mantidos no Outlook

Em geral, os anexos originais são removidos ao responder um e-mail no Outlook. Mas, com fantástico Responder com anexo característica de Kutools for Outlook, você pode facilmente manter todos os anexos de e-mails ao respondê-los no Outlook.