Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe specifieke bijlagen van e-mails in Outlook verwijderen?

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

Specifieke bijlagen verwijderen uit e-mails met VBA-code


Specifieke bijlagen verwijderen uit e-mails met VBA-code

Om specifiek type bijlagen van geselecteerde e-mails te verwijderen, kan de volgende VBA-code u een plezier doen, doe dit als volgt:

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

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

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

VBA-code: verwijder specifiek type bijlagen van 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 steeds in de Microsoft Visual Basic voor toepassingen venster klikt Gereedschap > Referenties naar de Referenties-Project1 dialoogvenster en vink aan Microsoft Scripting Runtime optie van de Beschikbare verwijzingen keuzelijst, zie screenshot:

doc verwijder attach op type 1

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

doc verwijder attach op type 2

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

doc verwijder attach op type 3



Kutools for Outlook

Meer dan 100 geavanceerde functies voor Outlook 2010, 2013, 2016, 2019 en 365

screen shot kutools voor outlook tiny voor banner 201812

Meer functies | Gratis download | Alleen $ 39.00 voor honderden functies

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.