Skip to main content

Ontdek vandaag nog de nieuwe, gratis versie van Kutools voor Outlook!

Hoe bijlagen op te slaan zonder de e-mail te openen in Outlook?

Author: Siluvia Last Modified: 2025-05-29

U moet vaak bijlagen van ontvangen e-mails opslaan op uw computer. Het is eenvoudig om een bijlage of alle bijlagen uit een e-mailbericht op te slaan, maar hoe slaat u bijlagen uit meerdere e-mails tegelijk op? Normaal gesproken moet u herhaaldelijk de e-mails openen en de bijlagen opslaan. Is er een truc om deze herhaalde handelingen te vermijden? De methoden in deze handleiding kunnen u helpen.

Bijlagen opslaan uit één of meer e-mails zonder te openen met VBA-code
Bijlagen opslaan uit één of meer e-mails zonder te openen met een geweldig hulpmiddel

Bijlagen opslaan uit één of meer e-mails zonder te openen met VBA-code

De onderstaande VBA-code kan helpen om bijlagen uit één of meer e-mails tegelijk op te slaan zonder de e-mails in Outlook te openen. Volg de onderstaande stappen.

1. Selecteer een e-mail of meerdere e-mails waaruit u de bijlagen wilt opslaan, druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Vouw de map Microsoft Outlook Objects uit, dubbelklik op ThisOutlookSession om het Code-venster te openen, en kopieer vervolgens de onderstaande VBA-code erin.

save attachments with VBA 1

VBA-code: Bijlagen opslaan zonder de e-mails te openen

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

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

4. Druk op de F5-toets om de code uit te voeren. Er verschijnt een BrowseForFolder-venster, selecteer een map om de bijlagen op te slaan en klik op de OK-knop.

Alle bijlagen in de geselecteerde e-mails worden onmiddellijk opgeslagen in de geselecteerde map.

Opmerking: Alle bijlagen worden losgekoppeld van de e-mails en de bijbehorende opslagpadlinks blijven behouden in de e-mailtekst.

save attachments with VBA 2

Bijlagen opslaan uit één of meer e-mails zonder te openen met een geweldig hulpmiddel

Als u nieuw bent in VBA, dan is de methode in deze sectie een goede keuze voor u.

Hierbij bevelen wij de Alle bijlagen opslaan hulpmiddelen van Kutools voor Outlook aan u aan. Als u alleen de bijlagen wilt opslaan zonder ze los te koppelen van de geselecteerde e-mails, kan de functie Alle bijlagen opslaan u hier gemakkelijk mee helpen. Volg de onderstaande stappen.
Voordat u Kutools voor Outlook gebruikt, moet u het eerst downloaden en installeren .

Ontgrendel de ultieme e-mail efficiëntie met Kutools voor Outlook! Ontvang 70 krachtige functies volledig gratis, voor altijd. Download nu de gratis versie!

1. Selecteer de e-mails die de bijlagen bevatten die u wilt opslaan, klik op Kutools Plus > Bijlagenhulpmiddelen > Alle opslaan.

2. In het Opslaginstellingen-venster moet u:

  • 2.1) In de sectie Bijlagen opslaan naar deze map, kies een map om de bijlagen op te slaan;
  • 2.2) Het vak Bijlagen opslaan met onderstaande stijl is optioneel voor u om een submap met een bepaalde stijl aan te maken om de bijlagen op te slaan, of om de opgeslagen bijlagen met een bepaalde stijl te hernoemen.
  • 2.3) Klik op OK om te beginnen met het opslaan van alle bijlagen uit de geselecteerde e-mails.

Tips: Met de bovenstaande instellingen worden alle bijlagen opgeslagen in de opgegeven map. Als u alleen bepaalde bijlagen wilt opslaan, zoals alleen PDF-bestanden met het woord "factuur" in de bestandsnaam, kunt u de filtervoorwaarden als volgt configureren.  

  • Klik op de knop Geavanceerde opties om de Filtervoorwaarden uit te vouwen;
  • Specificeer de voorwaarden op basis van uw behoeften.
    Tips: Hier vink ik de Bijlage Naam bevat vakje aan en typ vervolgens "factuur" in het tekstvak, daarna vink ik het Bijlagetype vakje aan, typ ".pdf" in het tekstvak.
save attachments with kutools 2

3. Klik in het volgende pop-upvenster op Ja om door te gaan.

De bijlagen in de geselecteerde e-mails worden onmiddellijk opgeslagen in de opgegeven map.

Tips: Om bijlagen los te koppelen van de geselecteerde e-mails en alleen de bijlagehyperlinks in de e-mailtekst achter te laten, kan de functie Alle bijlagen loskoppelen helpen.

Gerelateerde artikelen

Automatisch bijlagen downloaden/opslaan vanuit Outlook naar een bepaalde map
Over het algemeen kunt u alle bijlagen van één e-mail opslaan door te klikken op Bijlagen > Alle bijlagen opslaan in Outlook. Maar als u alle bijlagen van alle ontvangen en binnenkomende e-mails wilt opslaan, heeft u een idee? Dit artikel introduceert twee oplossingen om automatisch bijlagen vanuit Outlook naar een bepaalde map te downloaden.

Bijlagen behouden bij het beantwoorden in Outlook
Wanneer we een e-mailbericht doorsturen in Microsoft Outlook, blijven de originele bijlagen in het doorgestuurde bericht behouden. Echter, wanneer we een e-mail beantwoorden, worden de originele bijlagen niet toegevoegd aan het nieuwe antwoordbericht. Hier introduceren we een paar trucs om originele bijlagen te behouden bij het beantwoorden in Microsoft Outlook.

Zoekwoorden binnen bijlage (inhoud) in Outlook
Wanneer we een zoekwoord typen in het Instant Search-vak in Outlook, wordt het zoekwoord gezocht in de onderwerpen, inhoud en bijlagen van e-mails, enz. Maar nu wil ik alleen het zoekwoord zoeken in de inhoud van bijlagen in Outlook, heeft u een idee? Dit artikel laat u de gedetailleerde stappen zien om woorden binnen bijlage-inhoud in Outlook gemakkelijk te zoeken.