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ó consome muito tempo, 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 para Outlook oferece uma opção de um clique para copiar instantaneamente todos os anexos de um e-mail para uma resposta, sendo 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 rapidamente e copiar 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 "Inserir" > "Módulo" para criar um novo módulo. E 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 em VBA: Não é amigável para iniciantes e envolve trabalhar com código.
- ❌ Configuração manual necessária: É preciso abrir o editor VBA, inserir o código e executá-lo todas as vezes.
- ❌ 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 novamente.
📂 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 para Outlook". Esse método permite copiar todos os anexos de um e-mail diretamente em uma resposta com apenas um clique — sem necessidade de VBA ou cópia manual de anexos.
Chega de ineficiência no Outlook! O Kutools para Outlook torna o processamento de e-mails em lote mais fácil - agora com recursos gratuitos alimentados por IA! Baixe o Kutools para Outlook 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 para Outlook:
- ✅ Nenhuma cópia ou colagem manual: Funciona instantaneamente com um clique.
- ✅ Nenhuma necessidade de codificação 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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint