KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

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

AuteurSiluvia Wijzigingsdatum

U bewaart waarschijnlijk regelmatig bijlagen uit ontvangen e-mails op uw computer. Hoewel het eenvoudig is om één of alle bijlagen van een enkel e-mailbericht op te slaan, is het veel minder handig wanneer u bijlagen uit meerdere e-mails tegelijk wilt opslaan. Normaal gesproken moet u dan telkens de e-mails openen en de bijlagen handmatig opslaan. Bestaan er slimme trucs om deze herhaalde handelingen te vermijden? De methoden in deze handleiding helpen u daarbij.

Bijlagen opslaan van één of meer e-mails zonder te openen met VBA-code
Bijlagen opslaan van één of meer e-mails zonder te openen met een geweldige tool

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

De onderstaande VBA-code helpt u om bijlagen van één of meerdere e-mails tegelijkertijd op te slaan, zonder de e-mails in Outlook te hoeven openen. Volg hiervoor de volgende stappen.

1. Selecteer één e-mail of meerdere e-mails waarvan u de bijlagen wilt opslaan en druk op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

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

bijlagen opslaan met 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 toets F5 om de code uit te voeren. Er verschijnt dan een venster BladerenNaarMap. Selecteer een map om de bijlagen op te slaan en klik daarna op de knop OK.

Vervolgens worden alle bijlagen uit de geselecteerde e-mails direct opgeslagen in de gekozen map.

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

bijlagen opslaan met VBA 2

Bijlagen opslaan van één of meer e-mails zonder te openen met een geweldige tool

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

We raden u de functie Alle bijlagen opslaan van Kutools voor Outlook aan. Als u bijlagen wilt opslaan zonder ze los te koppelen van de geselecteerde e-mails, helpt Alle bijlagen opslaan u daar eenvoudig bij. Volg hiervoor de onderstaande stappen.
Voordat u Kutools voor Outlook gebruikt, dient u deze eerst te downloaden en te installeren.

Vaarwel Outlook-inefficiëntie! Met Kutools voor Outlook wordt batchverwerking van e-mails kinderspel – en nu geniet je 30 dagen gratis van een proefperiode!Download Kutools voor Outlook nu!!

1. Selecteer de e-mails met de bijlagen die u wilt opslaan en klik op KUTOOLS PLUS > Bijlagenhulpmiddelen > Alles opslaan.

2. In het dialoogvenster Opslaginstellingen moet u het volgende doen:

  • 2,1) In de sectie Bijlagen opslaan naar deze mapkiest u een map om de bijlagen op te slaan;
  • 2,2) Het vak Bijlagen opslaan met de volgende stijl is optioneel, zodat u een submap met een specifieke indeling kunt maken om bijlagen op te slaan of opgeslagen bijlagen kunt hernoemen volgens die indeling.
  • 2,3) Klik op OK om alle bijlagen van de geselecteerde e-mails op te slaan.

Tips: Met de bovenstaande instellingen worden alle bijlagen opgeslagen in de opgegeven map. Als u alleen bepaalde bijlagen wilt opslaan—bijvoorbeeld alleen PDF-bestanden met het woord „invoice” in de bestandsnaam—kunt u de filtervoorwaarden als volgt configureren.

  • Klik op de knop Geavanceerde optiesom de filtervoorwaarden uit te klappen;Filtervoorwaarden;
  • Geef de voorwaarden op die aansluiten bij uw behoeften.
    Tips: Hier selecteer ik het vak Bijlage Naam en kies „bevat”, voer daarna „invoice” in het tekstvak in, selecteer vervolgens het vak Bijlagetype is en voer „.pdf” in het tekstvak in.
bijlagen opslaan met kutools 2

3. Klik in het volgende dialoogvenster dat verschijnt op Ja om door te gaan.

Vervolgens worden de bijlagen in de geselecteerde e-mails in één keer opgeslagen in de opgegeven map.

Tips: Om bijlagen los te koppelen van geselecteerde e-mails en alleen hyperlinks naar de bijlagen in de e-mailtekst achter te laten, gebruikt u de functie Alle bijlagen loskoppelen.

Gerelateerde artikelen

Bijlagen automatisch downloaden en opslaan vanuit Outlook naar een specifieke map
Normaal gesproken kunt u alle bijlagen van één e-mail opslaan door in Outlook te klikken op Bijlagen > Alle bijlagen opslaan. Maar hoe zit het als u alle bijlagen uit zowel verzonden als ontvangen e-mails automatisch wilt opslaan? In dit artikel bespreken we twee slimme oplossingen om bijlagen direct en automatisch vanuit Outlook naar een vooraf ingestelde map te downloaden.

Bijlagen behouden bij beantwoorden in Outlook
Wanneer je een e-mailbericht doorstuurt in Microsoft Outlook, blijven de originele bijlagen automatisch behouden in het doorgestuurde bericht. Maar als je een e-mail beantwoordt, worden die bijlagen standaard niet meegenomen in je antwoord. In dit artikel delen we handige trucs om de originele bijlagen toch te behouden bij het beantwoorden van e-mails in Microsoft Outlook.

Zoeken naar woorden binnen bijlagen (inhoud) in Outlook
Wanneer u een trefwoord typt in het directzoekvak van Outlook, zoekt het programma standaard naar dat trefwoord in onderwerpen, hoofdteksten én bijlagen van e-mails. Maar wat als u dat trefwoord alleen wilt zoeken in de inhoud van bijlagen? Dit artikel laat u stap voor stap zien hoe u eenvoudig woorden kunt vinden binnen de inhoud van bijlagen in Outlook.