Kopieer alle bijlagen van meerdere e-mails naar een nieuwe e-mail

Kopieer alle bijlagen van een e-mail naar de antwoordmail

Dit artikel introduceert een VBA om snel alle bijlagen van meerdere e-mails naar een nieuwe in Outlook te kopiëren. Ga als volgt te werk:

1. Selecteer meerdere e-mails waarvan u de bijlagen wilt kopiëren en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.
Note: Vasthouden Ctrl toets, u kunt meerdere niet-aangrenzende e-mails selecteren door er één voor één op te klikken; vasthouden Shift toets, kunt u meerdere aangrenzende e-mails selecteren door op de eerste en de laatste te klikken.

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: kopieer alle bijlagen van meerdere e-mails naar een nieuwe

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. pers F5 sleutel of de lopen knop om deze VBA uit te voeren.

Nu ziet u dat alle bijlagen uit de geselecteerde e-mails zijn gekopieerd en in een nieuwe e-mail zijn geplakt.

Als u Kutools voor Outlook hebt geïnstalleerd, kunt u het toepassen Reageer met bijlage functie om eenvoudig alle bijlagen van een e-mail naar de antwoord-e-mail in Outlook te kopiëren. Ga als volgt te werk:

Selecteer de e-mail die u wilt beantwoorden en klik Kutools > Reageer met bijlage > Reageer met bijlage. Zie screenshot:

Nu zult u zien dat alle bijlagen automatisch naar de antwoordende e-mail worden gekopieerd.

Hoe een bijlage naar een andere e-mail in Outlook te kopiëren?