Como copiar todos os anexos de vários e-mails para um novo e-mail no Outlook?

Author: Kelly Last Modified: 2025-08-06

Gerenciar anexos de e-mails de forma eficiente no Outlook pode ser desafiador, especialmente quando você precisa extrair anexos de vários e-mails e consolidá-los em um novo e-mail ou copiar todos os anexos de um e-mail para uma resposta. Salvar e reanexar arquivos manualmente não só é demorado, mas também propenso a erros. Felizmente, existem duas maneiras eficazes de simplificar essa tarefa. Você pode usar o VBA para extrair e inserir anexos de vários e-mails em um novo e-mail, embora isso exija algum conhecimento técnico. No entanto, para uma solução mais rápida e sem complicações, a ferramenta Kutools for Outlook oferece uma opção de um clique para copiar instantaneamente todos os anexos de um e-mail para uma resposta, tornando-a a escolha mais eficiente e amigável.

Copie todos os anexos de vários e-mails para um novo e-mail usando o VBA (Manual e Técnico)

Copie todos os anexos de um e-mail para uma resposta instantaneamente com uma ferramenta incrível 👍 (Sem esforço e Recomendado)

Copie todos os anexos de vários e-mails para um novo e-mail usando o VBA

Se você prefere usar o VBA para automatizar o processo, pode seguir estas etapas para extrair e copiar rapidamente todos os anexos de vários e-mails para um novo e-mail.

Passo 1: Selecione vários e-mails

No Outlook, selecione os e-mails que contêm os anexos que deseja copiar.

Mantenha pressionado "Ctrl" para selecionar vários e-mails não adjacentes.
Mantenha pressionado "Shift" para selecionar uma sequência de e-mails adjacentes.

Passo 2: Abra o editor do VBA

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

Passo 3: Insira o código VBA em um novo módulo

Clique em "Inserir" > "Módulo" para criar um novo módulo. Em seguida, cole o seguinte código VBA na janela do módulo:

VBA: Copie todos os anexos de vários e-mails para um novo e-mail

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

Passo 4: Execute o código VBA

Pressione "F5" ou clique no botão Executar para executar o código. Um novo e-mail será aberto, contendo todos os anexos extraídos dos e-mails selecionados.

Desvantagens:

❌ Requer conhecimento de VBA: Não é amigável para iniciantes e envolve trabalho com código.
❌ Configuração manual necessária: É preciso abrir o editor do VBA, inserir o código e executá-lo toda vez.
❌ Possíveis restrições de segurança: Algumas versões do Outlook bloqueiam macros devido a políticas de segurança.
❌ Sem flexibilidade: É necessário executar o script novamente sempre que precisar copiar 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

Copie todos os anexos de um e-mail para uma resposta instantaneamente com uma ferramenta incrível 👍

Para uma solução mais simples e rápida, você pode usar o recurso Responder com Anexo Original no "Kutools for Outlook". Esse método permite copiar todos os anexos de um e-mail diretamente para uma resposta com apenas um clique — sem necessidade de VBA ou cópia manual de anexos.

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!

1. Na visualização de E-mail, selecione o e-mail ao qual deseja responder. Em seguida, clique em "Kutools" > "Responder com Anexo Original ou Responder a Todos com Anexo Original".

the screenshot of copying attchment to a replying email using Kutools 1

2. Agora, todos os anexos do e-mail selecionado são automaticamente copiados para o e-mail de resposta.

the screenshot of copying attchment to a replying email using Kutools 2

Vantagens do método Kutools for Outlook:

✅ Sem cópia ou colagem manual: Funciona instantaneamente com um clique.
✅ Não é necessário codificação em VBA: Amigável e sem complicações.
✅ Economiza tempo: Reduz drasticamente o esforço em comparação com métodos manuais.
✅ Compatível com todas as versões do Outlook: Sem restrições de macro ou avisos de segurança.

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