Como copiar todos os anexos de vários e-mails para um novo e-mail no Outlook?
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.

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".
2. Agora, todos os anexos do e-mail selecionado são automaticamente copiados para o e-mail de resposta.
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.
Artigos Relacionados
Como copiar anexo para outro e-mail no Outlook?
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!
📧 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...

