¿Cómo mover correos electrónicos a una carpeta específica tras asignarles una categoría determinada en Outlook?
Supongamos que ha asignado una categoría a un correo recibido en Outlook y, tras hacerlo, desea que dicho mensaje se mueva automáticamente a una carpeta con el mismo nombre que la categoría. Por ejemplo, un correo etiquetado como «Privado» se trasladará a una carpeta llamada «Privado» en su Outlook. ¿Cómo lograrlo? El método descrito en este artículo le permitirá resolverlo con facilidad.
Mover correos electrónicos a una carpeta especificada tras asignarles una determinada categoría mediante VBA
El siguiente código VBA le permite mover automáticamente los correos electrónicos a una carpeta especificada en cuanto les asigne una categoría determinada en Outlook. Siga estos pasos:
1. Pulse 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 (Código) para abrir su ventana. A continuación, copie el siguiente código VBA en dicha ventana. Consulte la captura de pantalla:
Código VBA: Mover correos electrónicos a una carpeta especificada tras asignarles una determinada categoría
Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items
Private Sub Application_Startup()
Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set xInboxItems = xInboxFld.Items
End Sub
Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
Set xMailItem = Item
xFlag = False
If xMailItem.Categories <> "" Then
Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
If xFlds.Count <> 0 Then
For Each xFld In xFlds
If xFld.Name = xMailItem.Categories Then
xFlag = True
End If
Next
End If
If xFlag = False Then
Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
End If
Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
xMailItem.Move xTargetFld
End If
End If
End Sub
3. Guarde el código y reinicie Outlook.
4. A partir de ahora, al asignar una categoría a un correo recibido, se creará automáticamente una carpeta con el nombre de dicha categoría dentro de la Bandeja de entrada y el mensaje se moverá a ella. Consulte la captura de pantalla:
Nota: Todos los correos asignados a la misma categoría se moverán automáticamente a una misma carpeta. Sin embargo, si se asigna una categoría nueva a un correo, se creará automáticamente una carpeta nueva.
Asistente de correo con IA en Outlook: respuestas más inteligentes y comunicación más clara (¡magia con un solo clic!)
Simplifique sus tareas diarias en Outlook con el Asistente de correo con IA de Kutools para Outlook. Esta potente herramienta aprende de sus correos anteriores para ofrecerle respuestas inteligentes y precisas, optimizar el contenido de sus mensajes y ayudarle a redactarlos y perfeccionarlos sin esfuerzo.
Esta función incluye:
- Respuestas inteligentes: obtenga respuestas elaboradas a partir de sus conversaciones anteriores: personalizadas, precisas y listas para usar.
- Contenido mejorado: refine automáticamente el texto de sus correos electrónicos para lograr mayor claridad e impacto.
- Redacción sin esfuerzo: proporcione solo palabras clave y deje que la IA haga el resto, con múltiples estilos de escritura.
- Extensiones inteligentes: potencie sus ideas con sugerencias adaptadas al contexto.
- Resumen: obtenga al instante resúmenes concisos de correos electrónicos extensos.
- Alcance global: traduzca sus correos electrónicos a cualquier idioma con facilidad.
Esta función incluye:
- 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
¡No espere más—descargue ahora el Asistente de correo con IA y disfrute!
Artículos relacionados:
- ¿Cómo asignar una categoría a un correo saliente en Outlook?
- ¿Cómo mantener las categorías originales al responder o reenviar un correo en Outlook?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace su trabajo mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools. Un solo instalador.
Kutools for Office es una suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, lo que la convierte en la opción ideal para equipos que trabajan con distintas aplicaciones de Office.
- Suite todo en uno— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Funcionan mejor juntos— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a comprar complementos por separado