Skip to main content

Como copiar os nomes de todos os anexos ao responder no Outlook?

Author: Kelly Last Modified: 2025-06-04

Ao responder um e-mail RTF (formatado como Rich Format) no Outlook, ele copiará automaticamente todos os nomes dos anexos e os colará no corpo da mensagem (veja a captura de tela abaixo). No entanto, ao responder um e-mail HTML no Outlook, os anexos estarão ausentes na resposta. Aqui, este artigo apresentará alguns métodos para copiar todos os nomes dos anexos ao responder e-mails ou diretamente nos e-mails recebidos.


Copiar todos os nomes dos anexos ao responder convertendo HTML para RTF

Se convertermos 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 Página Inicial > Responder no Outlook.

1Clique duas vezes para abrir o e-mail cujos nomes dos anexos você precisa copiar e, em seguida, clique Mensagem > Ações > Editar Mensagem na janela da mensagem. Veja a captura de tela:
doc-copy-attachment-names-01

2Avance para clicar Formatar Texto > Texto Rico, e depois salve e feche o e-mail.
doc-copy-attachment-names-02

3. Agora você retorna à visualização principal. Mantenha o e-mail selecionado e clique em Página Inicial > Responder.

4Agora, todos os nomes dos anexos são copiados do e-mail original e colados na mensagem de resposta, conforme mostrado na captura de tela abaixo. Por favor, redija a mensagem de resposta e envie-a.
doc-copy-attachment-names-03

Responda facilmente aos e-mails selecionados mantendo todos os anexos originais no Outlook

Em geral, os anexos originais são removidos ao responder um e-mail no Outlook. No entanto, com o recurso fantástico Responder com Anexo do Kutools para Outlook, você pode facilmente manter todos os anexos dos e-mails ao responder no Outlook.


reply with attachments


Copiar todos os nomes dos anexos ao responder com uma ferramenta incrível

Se você tiver o Kutools para Outlook instalado, poderá aplicar seu recurso Copiar Nomes para copiar rapidamente todos os nomes dos anexos de um e-mail recebido e, em seguida, colá-los facilmente na mensagem de resposta no Outlook.

Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!

1Selecione o e-mail que você vai responder e clique Kutools Plus > Ferramentas de Anexo > Copiar Nomes.
doc-click-copy-names

Então, uma caixa de diálogo aparecerá informando que os nomes dos anexos foram copiados para a área de transferência. Clique em OK para fechá-la.

2. Avance para clicar em Página Inicial > Responder para responder ao e-mail selecionado.

3Na janela da mensagem de resposta, posicione o cursor no corpo da mensagem e pressione Ctrl + V para colar os nomes dos anexos facilmente.
doc-paste-names


Copiar todos os nomes dos anexos ao responder usando VBA

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

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2No Explorador de Projetos à esquerda, expanda o Projeto 1, clique duas vezes para abrir o ThisOutlookSession (veja a captura de tela abaixo) e cole o código abaixo na janela.
doc-copy-attachment-names-2

VBA: Copiar todos os nomes dos 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 em Ferramentas > Referências.

4Na janela Referências – Projeto 1 aberta para o Outlook 2016, marque a Biblioteca de Objetos do Microsoft Word 16.0 referência na caixa Referências Disponíveis e clique no botão OK Veja a captura de tela:
doc-copy-attachment-names-4
Observação: Por favor, selecione a Biblioteca de Objetos do Microsoft Word 15.0 referência se estiver trabalhando com o Outlook 2013, ou Biblioteca de Objetos do Microsoft Word 14.0 referência com o Outlook 2010.

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

6Agora você retorna à interface principal do Outlook. Selecione o e-mail que você vai responder e clique Página Inicial > Responder ou Responder a Todos.
Nota: 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 captura de tela:
doc-copy-attachment-names-5


Artigos relacionados:


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2