¿Cómo eliminar tipos específicos de archivos adjuntos de correos electrónicos en Outlook?

¿Alguna vez ha intentado eliminar archivos adjuntos en varios correos electrónicos seleccionados por tipo de archivo en Outlook? Por ejemplo, eliminar todos los archivos adjuntos docx o png de los correos electrónicos seleccionados. ¿Cómo podrías resolver este trabajo en Outlook?

Elimine el tipo específico de archivos adjuntos de los correos electrónicos con código VBA

Elimine el tipo específico de archivos adjuntos de los correos electrónicos con código VBA

Para eliminar tipos específicos de archivos adjuntos de correos electrónicos seleccionados, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

1. Seleccione los correos electrónicos que desea eliminar su tipo específico de archivos adjuntos en la lista de correo.

2. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Luego, haz clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto, vea la captura de pantalla:

Código de VBA: elimine el tipo específico de archivos adjuntos de los correos electrónicos:

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. Y luego todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verifique Tiempo de ejecución de secuencias de comandos de Microsoft Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

doc eliminar adjuntar por tipo 1

5. Luego haga clic OK para cerrar el diálogo, ahora, presione F5 para ejecutar este código, y aparece un cuadro emergente, ingrese el tipo de archivo adjunto que desea eliminar, vea la captura de pantalla:

doc eliminar adjuntar por tipo 2