Hoe alle bijlagen uit een e-mail in Outlook verwijderen?

Normaal gesproken, wanneer u een e-mail bekijkt, kunt u een bijlage verwijderen door met de rechtermuisknop te klikken en de optie Bijlage Verwijderen te selecteren. Soms kunnen er veel bijlagen in een e-mailbericht zitten, en het kan vervelend zijn om ze één voor één te verwijderen. Hier bieden we u twee eenvoudige trucs om alle bijlagen in één e-mail te verwijderen en ook om alle bijlagen uit meerdere e-mails in Outlook te verwijderen.

Handmatig alle bijlagen uit één e-mailbericht in Outlook verwijderen
Alle bijlagen uit meerdere e-mailberichten in Outlook verwijderen met VBA-code
Eenvoudig alle bijlagen uit één of meerdere e-mails verwijderen met Kutools voor Outlook

Handmatig alle bijlagen uit één e-mailbericht in Outlook verwijderen

Het is eenvoudig om alle bijlagen uit een geselecteerd e-mailbericht te verwijderen met de functie Bijlagen Verwijderen in Outlook.

Stap 1: Selecteer het e-mailbericht waarvan u de bijlagen later wilt verwijderen.

Stap 2: Klik op een van de bijlagen in het Leesvenster om de Bijlagenhulpmiddelen te activeren.

Stap 3: Klik op de knop Alles selecteren in de groep Selectie op het tabblad Bijlagen.

Met deze stap kunt u alle bijlagen in dit geselecteerde e-mailbericht tegelijk selecteren.

Stap 4: Klik op de knop Bijlage Verwijderen in de groep Acties op het tabblad Bijlagen.

Stap 5: Klik in het waarschuwingsvenster op de knop Bijlagen Verwijderen.

Vervolgens worden alle bijlagen uit dit geselecteerde e-mailbericht zo snel mogelijk verwijderd.

Opmerking: De functie Bijlagen Verwijderen werkt goed in Outlook 2010 en latere versies, maar niet in Outlook 2007.

Alle bijlagen uit meerdere e-mailberichten in Outlook verwijderen met VBA-code

Als u alle bijlagen uit meerdere e-mailberichten in Microsoft Outlook wilt verwijderen, helpt de volgende methode u dit eenvoudig te doen. We raden u aan om eerst alle macro's in uw Microsoft Outlook in te schakelen.

Stap 1: Ga naar de map Mijn Documenten, maak een nieuwe map aan en noem deze OLAttachments.

Stap 2: Selecteer meerdere e-mailberichten waarvan u de bijlagen later wilt verwijderen.

Opmerking: U kunt niet-opeenvolgende e-mailberichten selecteren door de Ctrl -toets ingedrukt te houden en te klikken.

U kunt opeenvolgende e-mailberichten selecteren door de Shift -toets ingedrukt te houden en te klikken.

Stap 3: Open de VBA-editor door tegelijkertijd op de Alt-toets en de F11-toets te drukken.

Stap 4: Vouw Project1 > Microsoft Outlook Objecten uit in de linker balk en dubbelklik vervolgens op ThisOutlookSession om het in de Editor te openen. Zie onderstaande schermafbeelding:

Stap 5: Kopieer en plak de volgende VBA-code in het bewerkingsvenster.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

Stap 6: Druk op de toets F5 om deze VBA-code uit te voeren.

Nu zijn alle bijlagen uit de geselecteerde e-mailberichten verwijderd, waarbij hyperlinks naar elke verwijderde bijlage onderaan alle geselecteerde e-mailberichten blijven staan.

Eenvoudig alle bijlagen uit één of meerdere e-mails verwijderen met Kutools voor Outlook

De functie Alle bijlagen loskoppelen van Kutools voor Outlook kan snel alle bijlagen uit één of meerdere geselecteerde e-mails in Outlook verwijderen. Doe het volgende.

Kutools voor Outlook : met meer dan 100 handige Outlook-add-ins, gratis te proberen zonder beperkingen gedurende 30 dagen.

1. Selecteer één of meerdere e-mailberichten met de bijlagen die u wilt verwijderen, klik vervolgens op Kutools > Bijlagenhulpmiddelen > Alle loskoppelen. Zie screenshot:

2. Configureer in het venster Loskoppelingsinstellingen als volgt.

• 2.1 Klik op de knop Bladeren om een map te selecteren om alle verwijderde bijlagen op te slaan.
• 2.2 Standaard is het vak Bijlagen loskoppelen in onderstaande stijl aangevinkt, kies een optie om de bijlagen in verschillende mappen op te slaan op basis van e-mails zoals u nodig hebt.
• 2.3 Klik op de knop OK. Zie screenshot:

3. Klik op de knop Ja in het dialoogvenster Alle loskoppelen.

4. Vervolgens verschijnt er een dialoogvenster van Kutools voor Outlook om u te vertellen hoeveel bijlagen zijn verwijderd. Klik op de knop OK. 

Nu zijn alle bijlagen onmiddellijk verwijderd, waarbij alleen de hyperlinks in de geselecteerde e-mails achterblijven. U kunt op de hyperlink klikken om de bijbehorende bijlage te openen zoals u nodig hebt.

---

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

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

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

• ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
• 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
• 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite