Ga naar hoofdinhoud

Hoe verwijder ik specifieke soorten bijlagen uit e-mails in Outlook?

Heb je ooit geprobeerd om bijlagen in meerdere geselecteerde e-mails op bestandstype in Outlook te verwijderen? Zoals het verwijderen van alle docx- of png-bijlagebestanden uit geselecteerde e-mails. Hoe zou je deze klus in Outlook kunnen oplossen?

Verwijder specifieke soorten bijlagen uit e-mails met VBA-code


Verwijder specifieke soorten bijlagen uit e-mails met VBA-code

Om specifieke soorten bijlagen uit geselecteerde e-mails te verwijderen, kan de volgende VBA-code u een plezier doen, doe dit als volgt:

1. Selecteer de e-mails waarvan u hun specifieke type bijlagen wilt verwijderen in de mailinglijst.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:

VBA-code: verwijder specifiek type bijlagen uit e-mails:

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4. En dan nog in de Microsoft Visual Basic voor toepassingen venster klikt Tools > Referenties naar de Referenties-Project1 dialoogvenster en vink aan Microsoft Scripting-runtime optie van de Beschikbare referenties keuzelijst, zie screenshot:

doc verwijderen attach door type 1

5. Dan klikken OK Druk nu op om het dialoogvenster te sluiten F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster, voer het type bijlage in dat u wilt verwijderen, zie screenshot:

doc verwijderen attach door type 2

6. Klikken OK, en alle bijlagen met het specifieke type dat u hebt gedefinieerd, zijn in één keer verwijderd, zie screenshot:

doc verwijderen attach door type 3


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Awesome, I was looking for this exactly. I just made a modification to remove attachments with specific string on the name.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations