Cómo reemplazar la categoría de color de un elemento de Outlook con VBA

Si desea reemplazar la categoría de color de un elemento de Outlook, deberá eliminar el original a medida que se asigna una nueva categoría. Por lo tanto, en este artículo, le enseñaremos cómo automatizar esto a través de VBA.

La razón principal por la que usamos categorías de color en Outlook es para clasificar y administrar mejor sus elementos de Outlook. Además, Outlook nos permite asignar una o más categorías de color a un elemento. Sin embargo, demasiadas categorías asignadas a un solo elemento a veces pueden desordenar sus reglas de clasificación. Por lo tanto, muchos usuarios desean reemplazar la categoría de color en lugar de superponer categorías. Aquí te expondremos una forma eficaz.

Reemplazar la categoría de color de un elemento de Outlook

1. Desde el principio, inicie su aplicación Outlook.
2. Luego cambie a la pestaña "Desarrollador" y haga clic en el botón "Visual Basic" o presione los atajos de teclas "Alt + F11".
3. A continuación, ingresará a la ventana "Microsoft Visual Basic para aplicaciones".
4. En este punto, debe hacer doble clic en el proyecto "ThisOutlookSession" en el lado izquierdo para abrirlo.
5. Posteriormente, copie los siguientes códigos VBA en esta ventana del proyecto.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

6. Después de eso, debe asignar un certificado digital a esta nueva macro.
7. Más tarde, debe verificar la configuración de macro de Outlook para asegurarse de que las macros firmadas estén habilitadas.
8. Finalmente, deberá reiniciar Outlook para activar el nuevo proyecto VBA.
9. A partir de ahora, cada vez que asignes una nueva categoría a un artículo, la anterior se eliminará automáticamente.

Manejar problemas molestos de Outlook

Como Outlook es propenso a errores y daños, encontrará varios problemas en su Outlook. Por lo tanto, debe tomar las precauciones necesarias. Por ejemplo, es aconsejable realizar copias de seguridad periódicas de su archivo PST. Además, debería hacerse con un poderoso Corrección de PST herramienta, 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 Server y productos de software de reparación de Outlook. Para más información visite www.datanumen.com