Hoe verwijder ik alle bijlagen van e-mail in Outlook?

Als u een voorbeeld van een e-mail bekijkt, kunt u gewoonlijk een bijlage verwijderen door met de rechtermuisknop te klikken en de gewenste te selecteren Bijlage verwijderen item. Soms zijn er mogelijk veel bijlagen in een e-mailbericht en het zal vervelend zijn ze een voor een te verwijderen. Hier regelen we u met twee eenvoudige trucs om alle bijlagen in één e-mail te verwijderen en alle bijlagen uit meerdere e-mails ook in Outlook te verwijderen.

Verwijder handmatig alle bijlagen in één e-mailbericht in Outlook

Verwijder alle bijlagen van meerdere e-mailberichten in Outlook met VBA-code

Verwijder eenvoudig alle bijlagen van een of meerdere e-mails met Kutools voor Outlook

Verwijder handmatig alle bijlagen in één e-mailbericht in Outlook

Het is gemakkelijk om alle bijlagen in een geselecteerde e-mailberichten te verwijderen met de Verwijder de bijlagen functie 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 Hulpmiddelen voor bijlagen te activeren.

Stap 3: klik op de Alles selecteren knop in de Selectie groep op de toebehoren Tab.

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

Stap 4: klik op de Bijlage verwijderen knop in de acties groep op de toebehoren Tab.

Stap 5: Klik in het waarschuwingsvenster op de Verwijder de bijlagen knop.

Vervolgens worden alle bijlagen in deze geselecteerde e-mailberichten zo snel mogelijk verwijderd.

Opmerking: de functie Bijlagen verwijderen werkt prima in Outlook 2010 en 2013, maar niet in Outlook 2007.

Verwijder alle bijlagen van meerdere e-mailberichten in Outlook met VBA-code

Als u alle bijlagen van meerdere e-mailberichten in Microsoft Outlook wilt verwijderen, helpt de volgende methode u dit gemakkelijk te doen. We raden je aan schakel alle macro's in uw Microsoft Outlook in in de eerste plaats.

Stap 1: Ga naar de map van Mijn document, maak een nieuwe map aan en noem het als OLAttachments

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

Opmerking: U kunt niet-opeenvolgende e-mailberichten selecteren met de knop Ctrl toets en klikken.

U kunt opeenvolgende e-mailberichten selecteren met de knop verschuiving toets en klikken.

Stap 3: Open de VBA-editor door op te drukken anders toets en F11 toets op hetzelfde moment.

Stap 4: open het Project1 > Microsoft Outlook-objecten in de linkerkolom en dubbelklik op de ThisOutlookSession om het in de Editor te openen. Zie volgende screen shot:

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

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 van F5 om deze VBA-code uit te voeren.

Nu zijn alle bijlagen van geselecteerde e-mailberichten verwijderd, met links naar alle verwijderde bijlagen onder aan alle geselecteerde e-mailberichten.

Verwijder eenvoudig alle bijlagen van een of meerdere e-mails met Kutools voor Outlook (slechts enkele klikken)

De Maak alles los bijlagen hulpprogramma van Kutools for Outlook kan snel alle bijlagen verwijderen uit een of meerdere geselecteerde e-mails in Outlook. Doe het als volgt.

Kutools for Outlook : met meer dan 20 handige Outlook add-ins, gratis om te proberen zonder beperking in 45-dagen.

1. Selecteer een of meerdere e-mailberichten met de bijlagen die u wilt verwijderen en klik vervolgens op Kutools > Maak alles los. Zie screenshot:

2. In de Selecteer een map dialoogvenster, klik op de Blader om een ​​map te selecteren om alle verwijderde bijlagen op te slaan. Controleer de Maak submappen in de volgende stijl in het vak en selecteer een mapstijl in de vervolgkeuzelijst. En klik ten slotte op OK knop. Zie screenshot:

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

4. Dan een Kutools for Outlook dialoogvenster verschijnt om u te vertellen hoeveel bijlagen zijn verwijderd. Klik op de OK knop.

Nu worden alle bijlagen onmiddellijk verwijderd met alleen de hyperlinks die in geselecteerde e-mails achterblijven. U kunt op de hyperlink klikken om de bijbehorende bijlage te openen als u dat wilt.

Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar gratis download van de software eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.

Demo: verwijder eenvoudig alle bijlagen van e-mails met Kutools voor Outlook

Kutools for Outlook bevat 20 + krachtige functies en hulpmiddelen voor Microsoft Outlook. Gratis om te proberen zonder beperking in 45-dagen. Download de gratis proefversie nu!

Kutools voor Outlook - brengt 100 geavanceerde functies naar Outlook en maakt het werk veel eenvoudiger!

• Auto CC / BCC door regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver en meer automatische functies ...
• BCC-waarschuwing - laat een bericht zien als je alles probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinneren wanneer bijlagen ontbrekenen meer functies herinneren ...
• Antwoord (Alle) Met alle bijlagen in het e-mailgesprek; Antwoord veel e-mails in seconden; Auto groet toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
• Bijlagehulpmiddelen: beheer alle bijlagen in alle e-mails, Automatisch ontkoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snelrapport, Tel geselecteerde e-mails...
• Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Hiermee kunt u slimmer, sneller en beter doen in Outlook.

Lees verder... Download nu...