¿Cómo bloquear correos electrónicos con archivos adjuntos .zip en Outlook?

Este método introducirá un VBA y luego creará una regla con este script de VBA para bloquear automáticamente todos los correos electrónicos con archivos adjuntos .zip en Outlook. Por favor, siga los siguientes pasos:

1. En Outlook, presione las teclas Alt + F11 juntas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y luego pegue el siguiente código VBA en la nueva ventana de Módulo.

VBA: Mover correos electrónicos con archivos adjuntos .zip a la carpeta Correo no deseado

Dim I As Long
'Check each attachment
For I = 1 To Item.Attachments.Count
'If the attachment's file name ends with .zip
If Right(UCase(Item.Attachments.Item(I).FileName), 4) = ".ZIP" Then
'Move the message to Junk E-mail
Item.Move Application.Session.GetDefaultFolder(olFolderJunk)
'No need to check any of this message's remaining attachments
Exit For
End If
Next I
End Sub

3. Guarde el código VBA y cierre la ventana de Microsoft Visual Basic para Aplicaciones.

4. Ahora regresa a la interfaz principal de Outlook. Seleccione cualquier correo electrónico en la cuenta de correo especificada y haga clic en Inicio > Reglas > Administrar reglas y alertas. Ver captura de pantalla:

5. En el cuadro de diálogo Reglas y alertas, por favor haga clic en Nueva regla bajo la pestaña Reglas de correo . Ver captura de pantalla:

6. Ahora se abre el Asistente de reglas. Por favor, haga clic en la opción Aplicar regla a los mensajes que recibo y haga clic en el botón Siguiente. Ver captura de pantalla:

7. En el Asistente de reglas (Seleccionar condición(es)), por favor marque Tiene adjunto y haga clic en el botón Siguiente. Ver captura de pantalla:

8. En el Asistente de reglas (Seleccionar acción(es)), por favor haga lo siguiente como se muestra en la captura de pantalla:
(1) Marque la opción ejecutar un script opción;
(2) Haga clic en el texto de un script en la Paso 2 sección;
(3) En el cuadro de diálogo Seleccionar script, seleccione el nuevo script VBA agregado y haga clic en el botón Aceptar botón;
(4) Haga clic en el botón Siguiente .

9. Haga clic directamente en el botón Siguiente en el Asistente de reglas (seleccionar excepciones).

10. Ahora, en el último Asistente de reglas, por favor (1) nombre la nueva regla en el cuadro Paso 1, (2) especifique opciones según sea necesario en la sección Paso 2 , y luego (3) haga clic en el botón Finalizar. Ver captura de pantalla:

11. Cierre el cuadro de diálogo Reglas y alertas.

Hasta ahora, ha terminado la regla con el script VBA especificado. Y todos los correos electrónicos entrantes con archivos adjuntos .zip se moverán automáticamente a la carpeta Correo no deseado.

Evitar que Outlook bloquee archivos adjuntos

Eliminar archivos adjuntos bloqueados de correos electrónicos en Outlook