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

Copie todos os anexos de um e-mail para o e-mail de resposta

Este artigo apresentará um VBA para copiar rapidamente todos os anexos de vários e-mails para um novo no Outlook. Faça o seguinte:

1. Selecione vários e-mails cujos anexos você irá copiar e pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.
Note: Segurando Ctrl , você pode selecionar vários e-mails não adjacentes clicando neles um por um; segurando Shift , você pode selecionar vários e-mails adjacentes clicando no primeiro e no último.

2. Clique inserção > Móduloe, em seguida, cole o código VBA abaixo na nova janela do módulo.

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

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

3. pressione F5 chave ou o Execute botão para executar este VBA.

Agora você verá que todos os anexos foram copiados dos e-mails selecionados e colados em um novo e-mail.

Se você tiver o Kutools para Outlook instalado, você pode aplicar seu Responder com anexo recurso para copiar facilmente todos os anexos de um e-mail para o e-mail de resposta no Outlook. Faça o seguinte:

Selecione o e-mail que você irá responder e clique em Kutools > Responder com anexo > Responder com anexo. Veja a imagem:

Agora você verá que todos os anexos são copiados para o e-mail de resposta automaticamente.

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