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

Gerir anexos de e-mail de forma eficiente no Outlook pode ser desafiante, especialmente quando precisa de extrair anexos de várias mensagens e consolidá-los numa nova mensagem ou copiar todos os anexos de uma mensagem para uma resposta. Guardar e voltar a anexar ficheiros manualmente não só consome muito tempo como também é propenso a erros. Felizmente, existem duas formas eficazes de simplificar esta tarefa: pode utilizar VBA para extrair e inserir anexos de várias mensagens numa nova mensagem — embora exija alguns conhecimentos técnicos — ou, para uma solução mais rápida e sem complicações, recorrer à ferramenta Kutools para Outlook, que oferece uma opção com um único clique para copiar instantaneamente todos os anexos de uma mensagem para um e-mail de resposta, tornando-a na opção mais eficiente e fácil de utilizar.

Copiar todos os anexos de várias mensagens para uma Novo Email utilizando VBA(Manual e Técnico)

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

---

Copiar todos os anexos de várias mensagens para uma Novo Email utilizando VBA

Se preferir utilizar VBA para automatizar o processo, siga estes passos para extrair e copiar rapidamente todos os anexos de várias mensagens para um novo e-mail.

Passo 1: Selecione várias mensagens

No Outlook, selecione as mensagens que contêm os anexos que deseja copiar.

• Mantenha premida a tecla «Ctrl» para selecionar várias mensagens não consecutivas.
• Mantenha a tecla Shift premida para selecionar um intervalo de mensagens adjacentes.

Passo 2: Abra o editor do VBA

Prima «Alt» + "F11" para abrir a janela «Microsoft Visual Basic for Applications».

Passo 3: Insira o código VBA num 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: Copiar todos os anexos de várias mensagens para uma Novo Email

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

Prima "F5" ou clique no botão Executar para executar o código. Será aberto um novo e-mail contendo todos os anexos extraídos das mensagens selecionadas.

---

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

Para uma solução mais simples e rápida, utilize a funcionalidade **Responder com Anexo Original** do *Kutools para Outlook*. Com apenas um clique, copia todos os anexos da mensagem original diretamente para o seu e-mail de resposta — sem precisar de VBA nem de copiar manualmente os ficheiros.

1. Na vista Correio, selecione a mensagem à qual pretende responder e, em seguida, clique em «Kutools» > «Responder com Anexo Original» ou «Responder a Todos com Anexo Original».

2. Agora, todos os anexos da mensagem selecionada são copiados automaticamente para o e-mail de resposta.

---

Artigos Relacionados

Como copiar um anexo para outro e-mail no Outlook?