Com esborrar tipus específics de fitxers adjunts de correus electrònics a l'Outlook?

Alguna vegada has intentat eliminar els fitxers adjunts en diversos correus electrònics seleccionats per tipus de fitxer a Outlook? Com, suprimint tots els fitxers de dades adjunt docx o png dels correus electrònics seleccionats. Com es pot resoldre aquest treball a l'Outlook?

Elimineu tipus específic d'adjunts des de correus electrònics amb codi VBA

Elimineu tipus específic d'adjunts des de correus electrònics amb codi VBA

Per eliminar tipus específics de fitxers adjunts de correus electrònics seleccionats, el codi VBA següent pot fer-vos un favor, fes el següent:

1. Seleccioneu els correus electrònics que voleu eliminar del tipus específic d'adjunts a la llista de correu.

2. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

3. A continuació, feu clic a Insereix > Mòduls, copieu i enganxeu el codi de sota del mòdul en blanc obert, vegeu la captura de pantalla:

Codi VBA: elimina els tipus d'adjunts específics dels correus electrònics:

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. I encara en el Microsoft Visual Basic per a aplicacions finestra, feu clic a instruments > referències per anar a la Referències: Project1 quadre de diàleg i verificació Microsoft Scripting Runtime opció de la Referències disponibles quadre de llista, veure captura de pantalla:

5. A continuació, feu clic a OK per tancar el diàleg, ara, premeu F5 clau per executar aquest codi, i apareix un quadre de llista ràpida, introduïu el tipus de fitxer adjunt que voleu suprimir, vegeu la captura de pantalla:

6. Clic OK, i tots els fitxers adjunts amb el tipus específic que heu definit s'han eliminat alhora, vegeu la captura de pantalla:

Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions