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

En su trabajo diario, puede recibir muchos correos electrónicos de remitentes desconocidos que no están guardados en su carpeta Contactos. Estos pueden ser algunos correos electrónicos no deseados o maliciosos; en este caso, desea mover automáticamente estos correos electrónicos a una carpeta específica en lugar de a la Bandeja de entrada. ¿Cómo podrías resolver este trabajo en Outlook?

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

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

---

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

En realidad, puede crear una regla para mover los correos electrónicos de remitentes desconocidos a una carpeta específica automáticamente, haga lo siguiente:

1. Cree una nueva carpeta en la carpeta Bandeja de entrada que colocará los correos electrónicos provenientes de remitentes desconocidos como se muestra en la siguiente captura de pantalla:

2. Luego haga clic Inicio > Reglas > Administrar reglas y alertas, ver captura de pantalla:

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

4. Y haga clic en OK botón para ir a la Asistente de reglas, haga clic Aplicar la regla en el mensaje que recibo Opción de la Comience desde una regla en blanco cuadro de sección, ver captura de pantalla:

5. Luego haga clic Siguiente , en este paso, no seleccione ninguna opción y haga clic en Siguiente botón directamente, aparece un cuadro de advertencia, haga clic en Sí botón, ver captura de pantalla:

6. Y en el siguiente cuadro de diálogo, marque moverlo a la carpeta especificada opción en el Paso 1: seleccione la (s) acción (es) cuadro de lista y luego haga clic en el texto vinculado especificado, y en el abierto Reglas y Alertas cuadro de diálogo, especifique la carpeta a la que desea mover los correos electrónicos, vea la captura de pantalla:

7. Hacer clic OK botón, y siga haciendo clic Siguiente botón, en este ¿Hay alguna excepción? diálogo, comprobar excepto si el remitente está en la libreta de direcciones especificada opción en el Paso 1: seleccione la (s) excepción (es) cuadro de lista y luego haga clic en el texto vinculado especificado, Y un Agregar lista de direcciones aparecerá el cuadro emergente, seleccione una carpeta de contactos que contenga los contactos que desea excepto, vea la captura de pantalla:

8. Luego haga clic Añada botón, y luego haga clic Siguiente para ir al último cuadro de diálogo del asistente, escriba un nombre de regla en el Paso 1: especifique un nombre para esta regla cuadro de texto y verifique Enciende esta regla Opción de la Paso 2: regla de configuración sección de opciones. Ver captura de pantalla:

9. Y luego haz clic Terminar y Ok botones para cerrar los diálogos. A partir de ahora, cuando los correos electrónicos provengan de remitentes desconocidos, se moverán a la carpeta específica automáticamente.

---

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

Puede ser que el método anterior sea problemático para usted, aquí puede aplicar un código para tratarlo lo más rápido posible.

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

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook de Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: mueva automáticamente los 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. Luego, guarde el código y cierre la ventana de código, y reinicie Outlook para que el código surta efecto. De ahora en adelante, cuando los correos electrónicos provengan de algunos remitentes desconocidos, se moverán a la carpeta Desconocido automáticamente, vea la captura de pantalla:

Nota:: Los Desconocido La carpeta se creará automáticamente cuando haya algunos correos electrónicos desconocidos entrantes. Puede cambiar el nombre de la carpeta "desconocido”A otros en el guión.