Cómo mover automáticamente correos electrónicos con diferentes categorías de color a diferentes carpetas en Outlook

Si desea que Outlook mueva automáticamente los correos electrónicos a diferentes carpetas cuando les asigne diferentes categorías de color, puede utilizar el método que se presenta en esta publicación.

Muchos usuarios anhelan métodos para mover automáticamente un correo electrónico a una carpeta específica cuando se le asigna una determinada categoría de color. Sin lugar a dudas, Outlook no ofrece una función tan directa para realizarlo. Por lo tanto, a continuación, le enseñaremos un medio para conseguirlo. Ahora, sigue leyendo para conocer los pasos detallados.

Mover automáticamente correos electrónicos con diferentes categorías de color a diferentes carpetas

1. Para empezar, abre tu programa Outlook.
2. Luego, en Outlook, presione los botones de tecla "Alt + F11" para acceder al editor de VBA.
3. Posteriormente, coloque el siguiente código VBA en el proyecto "ThisOutlookSession".

Private WithEvents objInboxFolder As Outlook.Folder
Private WithEvents objInboxItems As Outlook.Items

'Process inbox mails
Private Sub Application_Startup()
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInboxFolder.Items
End Sub

'Occurs when changing item
Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objTargetFolder As Outlook.Folder
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Move mails based on color category
       If InStr(objMail.Categories, "Private") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Private")
          objMail.Move objTargetFolder
       ElseIf InStr(objMail.Categories, "Business") > 0 Then
          Set objTargetFolder = Application.Session.GetDefaultFolder(olFolderInbox).Folders("Business")
          objMail.Move objTargetFolder
       End If
    End If
End Sub

Notas:

• Para procesar elementos en otras carpetas, puede cambiar el objeto "objInboxFolder", como "Application.Session.GetDefaultFolder (olFolderSentMail)" por la carpeta "Elementos enviados".
• Además, modifique las categorías de color y las carpetas de destino predefinidas en el código anterior según sus necesidades específicas.
• Además, puede usar "ElseIf" para agregar las otras categorías de colores opcionales.

4. Después, mueva el cursor a la subrutina “Application_Startup” y pulse “F5”, lo que activará esta macro.
5. Finalmente, puedes tomar una foto. Este es mi ejemplo.

• Seleccione un correo electrónico en la carpeta Bandeja de entrada.
• Luego, asígnele la categoría de color "Privado".
• De inmediato, este correo se moverá a la carpeta "Privado" en "Bandeja de entrada".

Maneje su Outlook con cuidado

Tal vez haya encontrado varios problemas en su Outlook. La mayoría de las veces, en realidad ocurren por su manejo inadecuado. Por ejemplo, siempre cierra Outlook de forma incorrecta, como un apagado repentino. O no ha realizado una copia de seguridad de sus datos de Outlook a intervalos regulares. Todas las acciones similares pueden hacer que Outlook sea mucho más vulnerable. Como sabe, una vez que un archivo PST se daña, es extremadamente difícil repararlo. En general, el herramienta de reparación de la bandeja de entrada no hará efectos. No tiene más remedio que tomar la ayuda de utilidades externas de punta, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com