Como manter os anexos ao responder no Outlook?

Author: Kelly Last Modified: 2025-08-06

No Microsoft Outlook, quando você encaminha um e-mail, os anexos originais permanecem intactos. No entanto, ao responder a um e-mail, o Outlook remove automaticamente todos os anexos, assumindo que eles não são necessários na conversa. Isso pode ser frustrante e ineficiente, especialmente quando você precisa referenciar arquivos importantes, reenviar documentos ou manter os anexos para melhor contexto. Felizmente, existem várias maneiras de garantir que os anexos permaneçam incluídos ao responder no Outlook, seja uma solução manual, de um clique ou automatizada.

Responder com Anexos Copiando e Colando Manualmente (Básico e Demorado)

Responder com Anexos em Um Clique Usando Kutools para Outlook 👍 (Rápido e Sem Esforço)

Responder com Anexos Automaticamente Usando VBA (Técnico e Requer Configuração)

Responder com Anexos Copiando e Colando Manualmente

Você pode copiar manualmente os anexos de um e-mail e colá-los na mensagem de resposta antes de enviá-la.

1. Abra o Outlook, selecione o e-mail ao qual deseja responder e visualize-o no Painel de Leitura ou abra-o em uma janela separada.

2. Clique em qualquer um dos anexos, depois clique em Marcar Todos > Copiar na aba Anexos.

the screenshot of step about replying with attachments by manually copying and pasting 1

3. Clique no botão Responder para abrir uma janela de resposta.

the screenshot of step about replying with attachments by manually copying and pasting 2

4. Na mensagem de resposta, clique em qualquer lugar no corpo da mensagem e pressione Ctrl + V ou clique em Colar na aba Mensagem para inserir os anexos copiados.

the screenshot of step about replying with attachments by manually copying and pasting 3

5. Componha sua resposta, revise os anexos e clique em Enviar.

Limitações:

Manual e repetitivo: Não é ideal para uso frequente.
Demorado: Requer etapas extras a cada vez.
Propenso a erros: Você pode esquecer de copiar e colar os anexos.

📂 Salve Anexos de Múltiplos Emails sem Esforço

Cansado de salvar anexos um email de cada vez no Outlook? Simplifique seu fluxo de trabalho com o Kutools para Outlook! O poderoso recurso Salvar Todos (Anexos) permite que você salve anexos de múltiplos emails ou pastas inteiras em apenas alguns cliques. Diga adeus a processos manuais tediosos e assuma o controle de sua caixa de entrada sem esforço.

Baixe o Kutools para Outlook Agora

Responder com Anexos em Um Clique Usando Kutools para Outlook 👍

Para uma forma rápida e sem esforço de responder com anexos, você pode usar Kutools para Outlook. O recurso Responder com Anexo Original permite que você responda mantendo os anexos originais com apenas um clique.

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!

Selecione o e-mail que contém os anexos que você precisa manter. Em seguida, clique em Kutools > Responder com Anexo Original ou Responder a Todos com Anexo Original.

the screenshot of the Reply with Original Attachment or Reply All with Original Attachment button

Pronto! A mensagem de resposta incluirá automaticamente todos os anexos do e-mail original. Basta compor sua mensagem e clicar em Enviar.

the screenshot of keeping attchments in replying email using Kutools for Outlook

Por que usar Kutools para Outlook?

✅ Economiza Tempo: Não há necessidade de copiar e colar anexos manualmente.
✅ Solução de Um Clique: Responde instantaneamente com anexos.
✅ Fácil de Usar: Não requer habilidades técnicas.

Observação: Para aplicar o utilitário Responder com Anexo Original do Kutools para Outlook, primeiro você deve baixar e instalar o Kutools para Outlook.

Responder com Anexos Automaticamente Usando VBA

Para usuários confortáveis com scripts VBA, este método automatiza o processo de responder com anexos. No entanto, ele requer habilitar macros no Outlook e adicionar manualmente o script.

💡 Nota Importante: Antes de executar macros VBA, você precisa habilitar macros no Outlook.

Passo 1: Abra o editor VBA

1. Selecione a mensagem de e-mail à qual deseja responder.

2. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. No painel esquerdo, expanda Projeto1 > Objetos do Microsoft Outlook. Dê um duplo clique em ThisOutlookSession para abri-lo.

the screenshot of the ThisOutlookSession option

Passo 2: Insira o código VBA

Copie e cole o seguinte código VBA na janela ThisOutlookSession:

Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub

Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub

Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.CurrentItem
    End Select
End Function

Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Object
    Dim xTmpFolder As Object
    Dim xFldPath As String
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Passo 3: Execute a macro VBA

1. Pressione F5 ou clique no botão Executar para executar a macro.

2. Na caixa de diálogo Macros, selecione ThisOutlookSession.RunReplyAllWithAttachments para responder a todos ou selecione ThisOutlookSession.RunReplyWithAttachments para responder a um destinatário. Clique em Executar.

the screenshot of the Macros dialog box

Resultado

A janela de resposta será aberta com todos os anexos originais incluídos. Basta compor sua mensagem e clicar em Enviar.

Prós e Contras do Método VBA:

✅ Automatizado: Não é necessário copiar e colar anexos manualmente.
❌ Requer Conhecimento de VBA : Pode não ser amigável para iniciantes.
❌ Macros estão desativadas por padrão : Você deve ativá-las manualmente.

Conclusão: Qual Método Você Deve Escolher?

Aqui está uma comparação dos três métodos para ajudá-lo a decidir qual é o mais adequado às suas necessidades:

Método	Melhor Para	Facilidade de Uso	Eficiência
Cópia-Colagem Manual	Uso ocasional	⭐⭐⭐⭐	⭐⭐
Kutools para Outlook	Uso diário, usuários não técnicos	⭐⭐⭐⭐⭐	⭐⭐⭐⭐⭐
Macro VBA	Amantes da automação, usuários avançados	⭐⭐⭐	⭐⭐⭐⭐

Para a maioria dos usuários, Kutools para Outlook é a melhor opção, pois é a forma mais rápida e fácil de responder com anexos no Outlook. Agora, você pode facilmente responder com anexos no Outlook usando o método que melhor se adapta ao seu fluxo de trabalho! 🚀