Saltar al contenido principal

¿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:

doc mover correos electrónicos de desconocido 1

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

doc mover correos electrónicos de desconocido 2

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:

doc mover correos electrónicos de desconocido 3

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:

doc mover correos electrónicos de desconocido 4

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 botón, ver captura de pantalla:

doc mover correos electrónicos de desconocido 5

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:

doc mover correos electrónicos de desconocido 6

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:

doc mover correos electrónicos de desconocido 7

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:

doc mover correos electrónicos de desconocido 8

9. Y luego haz clic Acabado 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 del desplegable 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

doc mover correos electrónicos de desconocido 9

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:

doc mover correos electrónicos de desconocido 10

Note: 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.


Las mejores herramientas de productividad de oficina

Kutools para Outlook - Más de 100 potentes funciones para potenciar tu perspectiva

🤖 Asistente de correo AI: Correos electrónicos profesionales instantáneos con magia de IA: respuestas geniales con un clic, tono perfecto y dominio multilingüe. ¡Transforme el correo electrónico sin esfuerzo! ...

📧 Automatización de correo electrónico: Fuera de la oficina (disponible para POP e IMAP)  /  Programar envío de correos electrónicos  /  CC/CCO automático según reglas al enviar correo electrónico  /  Reenvío automático (reglas avanzadas)   /  Agregar saludo automáticamente   /  Divida automáticamente correos electrónicos de múltiples destinatarios en mensajes individuales ...

📨 Gestión de correo electrónico: Recuperar correos electrónicos fácilmente  /  Bloquear correos electrónicos fraudulentos por sujetos y otras personas  /  Eliminar correos electrónicos duplicados  /  Búsqueda Avanzada  /  Consolidar carpetas ...

📁 Archivos adjuntos profesionalesGuardar lote  /  Separación de lotes  /  Comprimir por lotes  /  Ahorro automático   /  Desconexión automática  /  Autocompresión ...

???? Interfaz mágica: 😊Más emojis bonitos y geniales   /  Aumente su productividad en Outlook con vistas con pestañas  /  Minimizar Outlook en lugar de cerrar ...

👍 Maravillas con un clic: Responder a todos los archivos adjuntos entrantes  /   Correos electrónicos antiphishing  /  🕘Mostrar zona horaria del remitente ...

👩🏼‍🤝‍👩🏻 Contactos y calendario: Agregar por lotes contactos de correos electrónicos seleccionados  /  Dividir un grupo de contactos en grupos individuales  /  Eliminar recordatorios de cumpleaños ...

Mas de Características 100 ¡Espere su exploración! Haga clic aquí para descubrir más.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations