¿Cómo mover correos electrónicos de remitentes desconocidos a una carpeta específica en Outlook?
En tu trabajo diario, puedes recibir muchos correos electrónicos de remitentes desconocidos que no están guardados en la carpeta Contactos. Estos pueden ser algunos correos basura o maliciosos, en cuyo caso, querrás mover automáticamente estos correos a una carpeta específica en lugar de a la Bandeja de entrada. ¿Cómo podrías resolver 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, puedes crear una regla para mover automáticamente los correos electrónicos de remitentes desconocidos a una carpeta específica, por favor, sigue los siguientes pasos:
1. Crea una nueva carpeta bajo 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 haz clic en Inicio > Reglas > Administrar reglas y alertas, ver captura de pantalla:
3. En el cuadro de diálogo Reglas y alertas, haz clic en Nueva regla bajo la pestaña Reglas de correo electrónico, ver captura de pantalla:
4. Y haz clic en el botón Aceptar para ir al Asistente para reglas, selecciona la opción Aplicar regla al mensaje que recibo de la sección Comenzar desde una regla en blanco, ver captura de pantalla:
5. Luego haz clic en el botón Siguiente, en este paso, no selecciones ninguna opción y haz clic directamente en el botón Siguiente, aparecerá un cuadro de advertencia, por favor, haz clic en el botón Sí, ver captura de pantalla:
6. Y en el siguiente cuadro de diálogo, marca la opción Moverlo a la carpeta especificada en el cuadro de lista Paso 1: Seleccionar acción(es), y luego haz clic en el texto vinculado especificado, y en el cuadro de diálogo Reglas y alertas abierto, especifica la carpeta donde deseas mover los correos electrónicos, ver captura de pantalla:
7. Haz clic en el botón Aceptar, y sigue haciendo clic en el botón Siguiente, en este cuadro de diálogo ¿Hay alguna excepción?, marca la opción excepto si el remitente está en la Libreta de direcciones especificada en el cuadro de lista Paso 1: Seleccionar excepción(es), y luego haz clic en el texto vinculado especificado, y aparecerá un cuadro Agregar lista de direcciones, selecciona una carpeta de contactos que contenga los contactos que deseas excluir, ver captura de pantalla:
8. Luego haz clic en el botón Agregar, y luego haz clic en Siguiente para ir al último cuadro de diálogo del asistente, escribe un nombre de regla en el cuadro de texto Paso 1: Especificar un nombre para esta regla, y marca la opción Activar esta regla de la sección Paso 2: Configurar opciones de regla. Ver captura de pantalla:
9. Y luego haz 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 específica.
Asistente de Correo AI en Outlook: Respuestas más Inteligentes, Comunicación más Clara (¡magia con un solo clic!) GRATIS
Simplifica tus tareas diarias en Outlook con el Asistente de Correo AI de Kutools para Outlook. Esta poderosa herramienta aprende de tus correos electrónicos anteriores para ofrecerte respuestas inteligentes y precisas, optimizar el contenido de tus correos y ayudarte a redactar y perfeccionar mensajes sin esfuerzo.
Esta función admite:
- Respuestas Inteligentes: Obtén respuestas elaboradas a partir de tus conversaciones pasadas, personalizadas, precisas y listas para usar.
- Contenido Mejorado: Refina automáticamente el texto de tus correos electrónicos para mayor claridad e impacto.
- Redacción sin Esfuerzo: Solo proporciona palabras clave y deja que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones Inteligentes: Amplía tus ideas con sugerencias contextualizadas.
- Resúmenes: Obtén resúmenes concisos de correos electrónicos largos al instante.
- Alcance Global: Traduce tus correos electrónicos a cualquier idioma fácilmente.
Esta función admite:
- Respuestas inteligentes de correo electrónico
- Contenido optimizado
- Borradores basados en palabras clave
- Extensión inteligente de contenido
- Resumen de correos electrónicos
- Traducción multilingüe
¡Lo mejor de todo es que esta función es completamente gratis para siempre! No esperes más, ¡descarga ahora el Asistente de Correo AI y disfruta!
Mover correos electrónicos de remitentes desconocidos a una carpeta específica aplicando código VBA
Quizás el método anterior sea complicado para ti, aquí puedes aplicar un código para manejarlo lo más rápido posible.
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana Microsoft Visual Basic for Applications.
2. En la ventana Microsoft Visual Basic for Applications, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el modo, y luego copia y pega el siguiente código en el módulo en blanco.
Código VBA: Auto mover 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 guarda el código y cierra la ventana del código, y reinicia Outlook para que el código surta efecto. A partir de ahora, cuando lleguen correos electrónicos de algunos remitentes desconocidos, se moverán automáticamente a la carpeta Desconocido, ver captura de pantalla:
Nota: La carpeta Desconocido se creará automáticamente cuando lleguen algunos correos electrónicos desconocidos. Puedes cambiar el nombre de la carpeta “Desconocido” a otro en el script.
Las mejores herramientas de productividad para Office
Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!
Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!
📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...
📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...
📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...
🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...
👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...
👩🏼🤝👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...
