Hoe slaat u alleen specifieke Excel-bijlagen op in Outlook?

Outlook biedt de handige functie ‘Alle bijlagen opslaan’, waarmee u alle bijlagen uit een e-mail in één keer naar een specifieke map kunt opslaan. Maar hoe slaat u alleen bepaalde soorten bijlagen op uit één of meerdere e-mails – zoals Excel-werkmappen, Word-documenten enzovoort? In deze handleiding laten we u twee methoden zien om dit probleem eenvoudig op te lossen.

Sla alleen specifieke Bestandstype-bijlagen op in Outlook met VBA-code
Sla gemakkelijk alleen specifieke Bestandstype-bijlagen op in Outlook met een geweldig hulpmiddel

Sla alleen specifieke Bestandstype-bijlagen op in Outlook met VBA-code

De volgende VBA-code helpt u om alleen bijlagen van een specifiek bestandstype uit één of meer geselecteerde e-mails op te slaan in een vooraf bepaalde map. Volg hiervoor de onderstaande stappen.

1. Start uw Outlook en selecteer in de e-maillijst één of meer e-mails waarvan u alleen bijlagen van een specifiek bestandstype wilt opslaan.

2. Druk op "Alt" + "F11" om het venster „Microsoft Visual Basic for Applications" te openen. Klik in het geopende venster op "Invoegen" > „Module" en plak daarna de onderstaande VBA-code in het modulevenster.

VBA-code: Sla alleen specifieke bijlagen op uit één of meerdere e-mails in een map

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Klik op 'Extra' > 'Verwijzingen', schakel in het dialoogvenster 'Verwijzingen – Project' het selectievakje 'Microsoft Scripting Runtime' in en klik op 'OK'.

4. Druk op de F5-toets om de code uit te voeren en kies in het pop-updialoogvenster ‘Bladeren naar map’ de map waarin u de bijlagen wilt opslaan.

5. Klik daarna op „OK" en typ in het volgende dialoogvenster „Kutools voor Outlook” de bestandsextensie van de bijlage die u wilt opslaan in het tekstvak, en klik op „OK".

Opmerking: Gebruik komma’s om meerdere bestandsextensies van elkaar te scheiden.

Alleen de opgegeven bijlagen worden nu opgeslagen.

Sla gemakkelijk alleen specifieke Bestandstype-bijlagen op in Outlook met een geweldig hulpmiddel

Bent u nieuw met VBA? Dan raden we u aan gebruik te maken van de Alle bijlagen opslaan-functie van „Kutools voor Outlook”. Met deze handige functie slaat u eenvoudig alleen bijlagen van een specifiek bestandstype op in Outlook.

1. Selecteer de e-mails waarvan u alleen bijlagen van een specifiek bestandstype wilt opslaan.

2. Klik op "Kutools" > "Bijlagenhulpmiddelen" > „Alle opslaan".

3. Configureer het volgende in het dialoogvenster „Opslaginstellingen”.

3,1) Klik in het gedeelte „Bijlagen opslaan naar deze map” op de -knop om Selecteer een map om de bijlagen op te slaan;

3,2) Klik op de knop „Geavanceerde opties” om het dialoogvenster uit te klappen;

3,3) Schakel in het gedeelte „Filtervoorwaarden” het selectievakje „Bijlagetype is” in en typ de bestandsextensie van de bijlagen die u wilt opslaan in het tekstvak.

Tip: Gebruik puntkomma’s om meerdere bestandsextensies te scheiden.

3,4) Klik op de knop „OK". Zie screenshot:

4. Er verschijnt een dialoogvenster waarin u wordt gevraagd of u de bijlagen wilt opslaan; klik op 'OK' om door te gaan.

5. Vervolgens verschijnt er nog een dialoogvenster met het aantal opgeslagen bijlagen; klik op 'OK'.

Nu worden uitsluitend bijlagen van het specifieke bestandstype opgeslagen.

Gerelateerde artikelen:

• Hoe slaat u alle bijlagen uit e-mailberichten op in Outlook?
• Hoe verwijdert u alle bijlagen uit e-mails in Outlook?

---

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