¿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 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 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
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:
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 profesionales: Guardar 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.