Cómo borrar por lotes todas las categorías de color en todos los elementos de Outlook

Para ciertos fines, es posible que desee comenzar a usar categorías de color desde cero en Outlook. Por lo tanto, querrá borrar todas las categorías de color en todos los elementos de Outlook. En este artículo, le mostraremos una manera eficaz de lograrlo.

Por ejemplo, para reconstruir las categorías de color, elimine todas las categorías de color existentes en Outlook. Pero, después de la eliminación, puede encontrar que estas categorías todavía están adjuntas a los elementos de Outlook. El único cambio es que las categorías pierden sus colores originales, mostrándose en blanco. En esta circunstancia, puede esperar borrar todas las categorías de color en todos los elementos.

Para hacer esto para todos los elementos en una carpeta, simplemente presione "Ctrl + A" para seleccionar todos los elementos, haga clic derecho y elija "Categorizar" y "Borrar todas las categorías" en el menú contextual. Pero, de esta forma, tienes que procesar cada carpeta una por una. Es demasiado tedioso. Entonces, a continuación, le enseñaremos un método mucho más conveniente.

Lote Borrar todas las categorías de color en todos los elementos de Outlook

1. Para empezar, abre la aplicación Outlook.
2. Luego, presione los atajos de teclas "Alt + F11" para activar el editor de VBA.
3. En la nueva ventana que se muestra, copie y pegue el siguiente código VBA en un módulo o proyecto vacío.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Después de eso, coloque el cursor en la primera subrutina y luego presione el botón de tecla "F5" para activar la macro.
5. Cuando aparece el mensaje "Completado", significa que todas las categorías de color se han borrado de todos los elementos de Outlook.
6. En la actualidad, no importa correos electrónicos, citas, tareas, contactos o notas en su Outlook, todos ellos no deben tener ninguna categoría de color asignada de forma absoluta.

Resolver problemas graves de Outlook

Quizás haya sabido que Outlook viene preinstalado con una herramienta de reparación incorporada: Scanpst.exe. ¿Lo has probado antes? Para ser honesto, es lo suficientemente poderoso como para lidiar con pequeños problemas relacionados con su archivo PST de Outlook. Sin embargo, si el problema es considerablemente grave, como mal Outlook dañado archivo, la utilidad interna no hará ningún efecto. En esta situación, debe recurrir a una herramienta externa de punta, como DataNumen Outlook Repair, que ha superado a sus rivales debido a su alta recuperación de PST.

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 SQL Server reparar y productos de software de reparación de Outlook. Para más información visite www.datanumen.com