Como manter os anexos ao responder no Outlook?

No Microsoft Outlook, ao reencaminhar um e-mail, os anexos originais permanecem intactos. No entanto, ao responder a uma mensagem, o Outlook remove automaticamente todos os anexos, assumindo que já não são necessários na conversa. Esta funcionalidade pode revelar-se frustrante e ineficiente, especialmente quando precisa de referenciar ficheiros importantes, reenviar documentos ou manter os anexos para garantir um contexto mais claro. Felizmente, existem várias formas de assegurar que os anexos sejam incluídos nas respostas no Outlook — quer prefira uma solução manual, com apenas um clique, ou totalmente automatizada:

Responder com Anexos copiando e colando manualmente(Básico e tedioso)

Responder com Anexos com um clique utilizando o Kutools para Outlook 👍(Rápido e sem esforço)

Responder com Anexos automaticamente utilizando VBA(Técnico e requer configuração)

Responder com Anexos copiando e colando manualmente

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 pretende responder e visualize-o no Painel de Leitura ou abra-o numa janela separada.

2. Clique em qualquer um dos anexos e, de seguida, clique em Selecionar Tudo > Copiar em Anexos.

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

4. Na mensagem de resposta, clique em qualquer local no corpo da mensagem e prima Ctrl+V ou clique em Colar no separador Mensagem para inserir os anexos copiados.

5. Redija a sua resposta, verifique os anexos e clique em Enviar.

---

📂 Guarde Anexos de Múltiplos E-mails sem Esforço

Cansado de guardar anexos um e-mail de cada vez no Outlook? Simplifique o seu fluxo de trabalho com Kutools para Outlook! A poderosa funcionalidade Guardar Tudo (Anexos) permite-lhe guardar anexos de vários e-mails ou de pastas inteiras com apenas alguns cliques. Diga adeus aos processos manuais tediosos e assuma o controlo da sua caixa de entrada sem esforço.

Transferir Kutools para Outlook Agora

Responder com Anexos com um clique utilizando o Kutools para Outlook 👍

Para uma forma rápida e simples de responder com anexos, utilize o Kutools para Outlook. Com a funcionalidade Responder com Anexo Original, pode responder mantendo os anexos originais com apenas um clique.

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

É só isso! A mensagem de resposta incluirá automaticamente todos os anexos do e-mail original. Basta redigir a sua mensagem e clicar em Enviar.

Responder com Anexos automaticamente utilizando VBA

Para utilizadores familiarizados com scripts VBA, este método automatiza o processo de Responder com Anexos. No entanto, exige que as macros sejam ativadas no Outlook e que o script seja adicionado manualmente.

Passo 1: Abrir o editor VBA

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

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

3. No painel esquerdo, expanda Projeto1 > Objetos do Microsoft Outlook. Faça duplo clique em ThisOutlookSession para o abrir.

Passo 2: Inserir 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: Executar a macro VBA

1. Prima 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 único destinatário. Clique em Executar.

Resultado

A janela de resposta abre automaticamente com todos os anexos originais incluídos. Basta redigir a sua mensagem e clicar em Enviar.

Conclusão: Qual método deve escolher?

Aqui está uma comparação dos três métodos para o ajudar a decidir qual se adapta melhor às suas necessidades:

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

Demonstração: Um clique para Responder com Anexos com o Kutools para Outlook

Artigos relacionados:

• Como manter os anexos ao responder uma mensagem no Outlook?
• Como guardar todos os anexos de vários e-mails numa única pasta no Outlook?
• Como remover todos os anexos de um e-mail no Outlook?

---

Melhores Ferramentas de Produtividade para o Office

Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!

🤖KUTOOLS AI:Utiliza tecnologia avançada de IA para gerir e-mails sem esforço, incluindo responder, resumir, otimizar, alongar, traduzir e redigir mensagens.

📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...

📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...

📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...

🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...

👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...

👩🏼‍🤝‍👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...

Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Desbloqueie instantaneamente o Kutools para Outlook com um único clique! Não espere mais — transfira já e aumente a sua eficiência!

Lista de Funcionalidades do Kutools para Outlook      Transferir Já      Ir para Compra

🚀 Transferência com um Clique — Obtenha Todos os Extras do Office

Altamente Recomendado: Kutools for Office (5 em 1)

Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!

• ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
• 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
• 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint

Sobre o Conjunto⬇ Transferir o Conjunto💳 Comprar o Conjunto