¿Cómo mover automáticamente los correos electrónicos de remitentes desconocidos a una carpeta específica en Outlook?

En su trabajo diario, puede recibir muchos correos electrónicos procedentes de remitentes desconocidos que no están guardados en su carpeta de contactos. Estos pueden ser correos no deseados o maliciosos; en este caso, es posible que desee mover automáticamente estos mensajes a una carpeta específica en lugar de dejarlos en la Bandeja de entrada. ¿Cómo puede realizar esta tarea en Outlook?

Mover correos electrónicos de remitentes desconocidos a una carpeta específica creando una regla

Mover correos electrónicos de remitentes desconocidos a una carpeta específica aplicando código VBA

---

Mover correos electrónicos de remitentes desconocidos a una carpeta específica creando una regla

De hecho, puede crear una regla para mover automáticamente los correos electrónicos de remitentes desconocidos a una carpeta específica. Siga estos pasos:

1. Cree una nueva carpeta dentro de la carpeta Bandeja de entrada para almacenar los correos procedentes de remitentes desconocidos, tal como se muestra en la siguiente captura de pantalla:

2. A continuación, haga clic en Inicio > Reglas > Administrar reglas y alertas. Consulte la captura de pantalla:

3. En el cuadro de diálogo Reglas y alertas, haga clic en Nueva regla en la pestaña Reglas de correo electrónico. Consulte la captura de pantalla:

4. Haga clic en el botón Aceptar para acceder al Asistente para reglas. A continuación, seleccione la opción Aplicar regla a los mensajes que reciba en el apartado Comenzar con una regla en blanco. Consulte la captura de pantalla:

5. A continuación, haga clic en el botón Siguiente. En este paso, no seleccione ninguna opción y haga clic directamente en el botón Siguiente. Aparecerá un cuadro de advertencia; haga clic en el botón Sí. Consulte la captura de pantalla:

6. En el siguiente cuadro de diálogo, active la opción moverlo a la carpeta especificada en el cuadro de lista Paso 1: Seleccione la(s) acción(es) y, a continuación, haga clic en el texto vinculado especificada. En el cuadro de diálogo Reglas y alertas que se abre, indique la carpeta a la que desea mover los correos electrónicos. Consulte la captura de pantalla:

7. Haga clic en el botón Aceptar y, a continuación, siga haciendo clic en el botón Siguiente. En el cuadro de diálogo ¿Hay alguna excepción?, active la opción excepto si el remitente está en la Libreta de Direcciones especificada en el cuadro de lista Paso 1: Seleccione la(s) excepción(es) y, luego, haga clic en el texto vinculado especificada. Aparecerá un cuadro Agregar Lista de direcciones; seleccione una carpeta de contactos que contenga los contactos que desee excluir. Consulte la captura de pantalla:

8. A continuación, haga clic en el botón Agregar y, a continuación, en Siguiente para acceder al último cuadro del asistente. Escriba un nombre para la regla en el cuadro de texto Paso 1: Especifique un nombre para esta regla y active la opción Activar esta regla en la sección Paso 2: Configurar regla. Consulte la captura de pantalla:

9. Por último, haga clic en los botones Finalizar y Aceptar para cerrar los cuadros de diálogo. A partir de ahora, cuando lleguen correos electrónicos de remitentes desconocidos, se moverán automáticamente a la carpeta especificada.

---

Mover correos electrónicos de remitentes desconocidos a una carpeta específica aplicando código VBA

Es posible que el método anterior le resulte complicado. Aquí puede aplicar un código para resolverlo rápidamente.

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Proyecto1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: mover automáticamente correos electrónicos de remitentes desconocidos a una carpeta específica:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

3. Guarde el código, cierre la ventana del editor y reinicie Outlook para que el código surta efecto. A partir de ahora, cuando lleguen correos electrónicos de remitentes desconocidos, se moverán automáticamente a la carpeta «Unknown». Consulte la captura de pantalla:

Nota: La carpeta Unknown se creará automáticamente cuando lleguen correos de remitentes desconocidos. Puede cambiar el nombre de la carpeta «Unknown» por otro en el script.