Hogyan lehet eltávolítani a mellékletek bizonyos típusait az Outlook e-mailjeiből?

Megpróbálta már eltávolítani a mellékleteket több kiválasztott e-mailben fájltípus szerint az Outlook programban? Például az összes docx vagy png melléklet fájl eltávolítása a kiválasztott e-mailekből. Hogyan oldhatná meg ezt a munkát az Outlook programban?

Távolítsa el a VBA kóddal ellátott e-mailek adott típusú mellékleteit

Távolítsa el a VBA kóddal ellátott e-mailek adott típusú mellékleteit

Ha bizonyos típusú mellékleteket szeretne eltávolítani a kiválasztott e-mailekből, a következő VBA-kód tehet szívességet, kérjük, tegye a következőket:

1. A levelezőlistán válassza ki azokat az e-maileket, amelyek eltávolítani kívánják az adott típusú mellékleteket.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ezután kattints a gombra betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:

VBA kód: Távolítsa el az adott típusú mellékleteket az e-mailekből:

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. És akkor még mindig a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák menni Referenciák-Projekt1 párbeszédpanelt, és ellenőrizze Microsoft Scripting Runtime lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:

doc 1. melléklet szerint távolítsa el a mellékletet

5. Ezután kattintson OK a párbeszéd bezárásához nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, kérjük, adja meg az eltávolítani kívánt melléklet típusát, lásd a képernyőképet:

doc 2. melléklet szerint távolítsa el a mellékletet