Hoe slaat u alle bijlagen uit meerdere e-mails op in één map in Outlook?

Het is eenvoudig om alle bijlagen uit één e-mail op te slaan met de ingebouwde functie Alle bijlagen opslaan in Outlook. Als u echter alle bijlagen uit meerdere e-mails tegelijk wilt opslaan, is er geen directe functie beschikbaar. U moet de functie Alle bijlagen opslaan herhaaldelijk toepassen op elke e-mail totdat alle bijlagen uit die e-mails zijn opgeslagen. Dat kost veel tijd. In dit artikel introduceren we twee methoden waarmee u bulksgewijs alle bijlagen uit meerdere e-mails eenvoudig naar een specifieke map kunt opslaan in Outlook.

Alle bijlagen uit meerdere e-mails opslaan in een map met VBA-code
Enkele klikken om alle bijlagen uit meerdere e-mails op te slaan in een map met een geweldig hulpmiddel

Alle bijlagen uit meerdere e-mails opslaan in een map met VBA-code

In dit gedeelte wordt stap voor stap gedemonstreerd hoe u met VBA-code snel alle bijlagen uit meerdere e-mails tegelijk naar een specifieke map opslaat. Volg de onderstaande stappen.

1. Maak eerst een map op uw computer aan om de bijlagen in op te slaan.

Ga naar de map „Documenten” en maak daar een nieuwe map aan met de naam „Attachments”. Zie de schermafbeelding:

2. Selecteer de e-mails waarvan u de bijlagen wilt opslaan en druk daarna op „Alt” + „F11” om het venster „Microsoft Visual Basic for Applications” te openen.

3. Klik op 'Invoegen' > 'Module' om het modulevenster te openen en plak daarna één van de volgende VBA-codes in het venster.

VBA-code 1: Bulksgewijs bijlagen opslaan uit meerdere e-mails (bijlagen met exact dezelfde naam direct opslaan)

Tip: Deze code slaat bijlagen met exact dezelfde bestandsnaam op door automatisch cijfers toe te voegen—1, 2, 3, enzovoort—achter de bestandsnaam.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

VBA-code 2: Bulksgewijs bijlagen opslaan uit meerdere e-mails (controleren op duplicaten)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Opmerkingen:

1) Als u alle bijlagen met dezelfde naam in een map wilt opslaan, past u bovenstaande „VBA-code 1” toe. Voordat u deze code uitvoert, klikt u op „Extra” > „Referenties” en vinkt u het vakje „Microsoft Scripting Runtime” aan in het dialoogvenster „Referenties – Project”.

2) Als u op duplicaten van Bijlage Naam wilt controleren, past u de „VBA-code 2” toe. Nadat u de code hebt uitgevoerd, verschijnt een dialoogvenster met de vraag of u de Dubbele bijlagen wilt vervangen; kies „Ja” of „Nee” op basis van uw behoeften.

5. Druk op de F5-toets om de code uit te voeren.

Vervolgens worden alle bijlagen uit de geselecteerde e-mails opgeslagen in de map die u in stap 1 hebt aangemaakt.

Opmerking: Er kan een meldingsvenster „Microsoft Outlook” verschijnen; klik dan op „Toestaan” om door te gaan.

Alle bijlagen uit meerdere e-mails opslaan in een map met een geweldig hulpmiddel

Als u nieuw bent met VBA, raden we u van harte aan de functie „Save All Attachments” van „Kutools voor Outlook” te gebruiken. Met dit handige hulpmiddel slaat u in slechts enkele klikken alle bijlagen uit meerdere e-mails tegelijk snel op in Outlook.

1. Selecteer de e-mails met de bijlagen die u wilt opslaan.

Tips: Selecteer meerdere niet-aangrenzende e-mails door de „Ctrl”-toets ingedrukt te houden en ze één voor één aan te klikken;
of selecteer meerdere aangrenzende e-mails door de „Shift”-toets ingedrukt te houden en de eerste en laatste e-mail te kiezen.

2. Klik op „KUTOOLS PLUS” > „Bijlagenhulpmiddelen” > „Alles opslaan”. Zie de schermafbeelding:

3. Klik in het dialoogvenster „Opslaginstellingen” op de -knop om een map te selecteren waarin de bijlagen worden opgeslagen, en klik vervolgens op de knop „OK”.

4. Dubbelklik op „OK” in de volgende pop-updialoogvensters. Vervolgens worden alle bijlagen uit de geselecteerde e-mails tegelijkertijd opgeslagen in de opgegeven map.

Opmerkingen:

• 1. Als u bijlagen uit verschillende e-mails in aparte mappen wilt opslaan, vink dan het selectievakje „Submappen maken in de volgende stijl” aan en kies een mapstijl uit de vervolgkeuzelijst.
• 2. Naast het opslaan van alle bijlagen kunt u bijlagen ook selectief opslaan op basis van specifieke voorwaarden. Wilt u bijvoorbeeld alleen PDF-bijlagen opslaan waarvan de bestandsnaam het woord „Invoice” bevat? Klik dan op de knop „Geavanceerde opties” om de voorwaarden uit te vouwen en stel deze in zoals hieronder weergegeven.
  
• 3. Als u bijlagen automatisch wilt opslaan zodra e-mails binnenkomen, helpt de Bijlagen automatisch opslaan-functie u daarbij.
• 4. Om bijlagen direct los te koppelen uit geselecteerde e-mails, kunt u gebruikmaken van de Detach All attachments-functie van „Kutools voor Outlook”.

Gerelateerde artikelen

---

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook      Nu downloaden      Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

• ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
• 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
• 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket⬇ Download het pakket💳 Koop het pakket