Hoe kopieert u alle bijlagen uit meerdere e-mails naar één nieuwe e-mail in Outlook?

Het efficiënt beheren van e-mailbijlagen in Outlook kan lastig zijn, vooral wanneer u bijlagen uit meerdere e-mails moet extraheren en samenvoegen in een nieuwe e-mail of alle bijlagen van een e-mail naar een antwoordmail wilt kopiëren. Handmatig bestanden opslaan en opnieuw bijvoegen kost niet alleen veel tijd, maar leidt ook gemakkelijk tot fouten. Gelukkig zijn er twee effectieve manieren om deze taak te vereenvoudigen. U kunt VBA gebruiken om bijlagen uit meerdere e-mails te extraheren en als bijlage in een nieuwe e-mail in te voegen, hoewel dit enige technische kennis vereist. Voor een snellere en probleemloze oplossing biedt de Kutools voor Outlook-tool echter een optie met één klik om direct alle bijlagen van een e-mail naar een antwoordmail te kopiëren, waardoor dit de meest efficiënte en gebruiksvriendelijke keuze is.

Kopieer alle bijlagen van meerdere e-mails naar een Nieuwe Email met VBA(Handmatig en technisch)

Kopieer alle bijlagen van een e-mail direct naar een antwoordmail met een geweldige tool 👍(Moeiteloos en aanbevolen)

---

Kopieer alle bijlagen van meerdere e-mails naar een Nieuwe Email met VBA

Als u liever VBA gebruikt om het proces te automatiseren, volgt u deze stappen om snel alle bijlagen uit meerdere e-mails te extraheren en naar een nieuwe e-mail te kopiëren.

Stap 1: Selecteer meerdere e-mails

Selecteer in Outlook de e-mails met de bijlagen die u wilt kopiëren.

• Houd de Ctrl-toets ingedrukt om meerdere niet-aangrenzende e-mails te selecteren.
• Houd de Shift-toets ingedrukt om een reeks aangrenzende e-mails te selecteren.

Stap 2: Open de VBA-editor

Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

Stap 3: Voeg de VBA-code in een nieuwe module in

Klik op "Invoegen" > „Module" om een nieuwe module te maken. Plak vervolgens de volgende VBA-code in het modulevenster:

VBA: Kopieer alle bijlagen van meerdere e-mails naar een Nieuwe 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

Stap 4: Voer de VBA-code uit

Druk op F5 of klik op de knop Uitvoeren om de code uit te voeren. Er wordt een nieuwe e-mail geopend met alle bijlagen die uit de geselecteerde e-mails zijn geëxtraheerd.

---

Kopieer alle bijlagen van een e-mail direct naar een antwoordmail met een geweldige tool 👍

Voor een eenvoudigere en snellere oplossing kunt u de functie **Beantwoorden met originele bijlage** in *Kutools voor Outlook* gebruiken. Met één klik kopieert u zo alle bijlagen van een e-mail direct naar uw antwoord — zonder VBA of handmatig bijlagen toe te voegen.

1. Selecteer in de Mail-weergave de e-mail waarop u wilt reageren en klik vervolgens op „Kutools” > „Beantwoorden met originele bijlage” of „Allen beantwoorden met originele bijlage”.

2. Alle bijlagen van de geselecteerde e-mail worden nu automatisch meegenomen in uw antwoordmail.

---

Gerelateerde artikelen

Hoe kopieert u een bijlage naar een andere e-mail in Outlook?