¿Cómo mover correos electrónicos a una carpeta específica después de asignar una categoría determinada en Outlook?

Supongamos que has asignado una categoría a un correo electrónico recibido en tu Outlook. Después de asignar la categoría, deseas que este correo se mueva automáticamente a una carpeta de correo específico con el nombre de la categoría. Por ejemplo, un correo asignado a la categoría “Privado” se moverá a una carpeta llamada “Privado” en tu Outlook. ¿Cómo lograrlo? El método en este artículo puede ayudarte a resolver el problema fácilmente.

Mover correos electrónicos a una carpeta específica después de asignar una categoría determinada con VBA

Mover correos electrónicos a una carpeta específica después de asignar una categoría determinada con VBA

El siguiente código VBA puede ayudar a mover automáticamente los correos electrónicos a una carpeta específica después de asignar una categoría determinada en Outlook. Por favor, sigue los siguientes pasos.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic para abrir la ventana ThisOutlookSession (Código). Luego copia el siguiente código VBA en la ventana. Ver captura de pantalla:

Código VBA: Mover correos electrónicos a una carpeta específica después de asignar una categoría determinada

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. Guarda el código y reinicia Outlook.

4. A partir de ahora, al asignar una categoría a un correo electrónico recibido, se creará automáticamente una carpeta con el nombre de la categoría bajo la carpeta Bandeja de entrada, y el correo se moverá allí. Ver captura de pantalla:

Nota: Todos los correos electrónicos asignados a la misma categoría se moverán automáticamente a la misma carpeta. Pero si se asigna una nueva categoría a un correo, se creará automáticamente una nueva carpeta.

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!

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?