Hur tar jag bort specifik typ av bilagor från e-postmeddelanden i Outlook?

Har du någonsin försökt ta bort bilagor i flera valda e-postmeddelanden efter filtyp i Outlook? Såsom att ta bort alla docx- eller png-bifogade filer från valda e-postmeddelanden. Hur kunde du lösa detta jobb i Outlook?

Ta bort specifik typ av bilagor från e-postmeddelanden med VBA-kod

Ta bort specifik typ av bilagor från e-postmeddelanden med VBA-kod

För att ta bort specifika typer av bilagor från valda e-postmeddelanden kan följande VBA-kod göra dig en tjänst, gör så här:

1. Välj de e-postmeddelanden som du vill ta bort deras specifika typ av bilagor i e-postlistan.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka sedan Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen, se skärmdump:

VBA-kod: Ta bort specifik typ av bilagor från e-postmeddelanden:

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. Och sedan fortfarande i Microsoft Visual Basic för applikationer fönstret klickar verktyg > Referensprojekt för att gå till Referenser-projekt1 dialogrutan och kontrollera Microsoft Scripting Runtime alternativ från Tillgängliga referenser listruta, se skärmdump:

doc ta bort bifoga efter typ 1

5. Klicka sedan OK för att stänga dialogen, tryck nu på F5 nyckel för att köra den här koden och en snabbruta dyker upp, ange den bifogade typen som du vill ta bort, se skärmdump:

doc ta bort bifoga efter typ 2