Las cookies nos ayudan a ofrecer nuestros servicios. Al utilizar nuestros servicios, usted acepta el uso de cookies.
Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Registro
x

or

¿Cómo eliminar el tipo específico de archivos adjuntos de los correos electrónicos en Outlook?

¿Alguna vez ha tratado de 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?

Eliminar tipos específicos de archivos adjuntos de correos electrónicos con código VBA


Eliminar tipos específicos de archivos adjuntos de correos electrónicos con código VBA

Para eliminar un tipo específico de archivos adjuntos de correos electrónicos seleccionados, el siguiente código VBA puede hacerte un favor, haz 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 presionado 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 aún en el Microsoft Visual Basic para aplicaciones ventana, haga clic Herramientas > Referencias para ir a la Referencias-Proyecto1 cuadro de diálogo y verificación Microsoft Scripting Runtime Opción de la Referencias disponibles cuadro de lista, ver captura de pantalla:

doc remove attach por tipo 1

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

doc remove attach por tipo 2

6. Hacer clic OK, y todos los archivos adjuntos con el tipo específico que está definido se han eliminado a la vez, vea la captura de pantalla:

doc remove attach por tipo 3



Kutools for Outlook

Más que 100 Funciones avanzadas para Outlook 2010, 2013, 2016, 2019 y 365

Kutools de captura de pantalla para Outlook pequeño para banner 201812

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

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.