¿Cómo eliminar todas las categorías de Outlook?

Supongamos que tiene muchos elementos en Outlook a los que se les ha aplicado una categoría de color. Si necesita eliminar todas estas categorías de forma rápida y sencilla, ¿cómo lo haría en Outlook?

Borrar todas las categorías de una carpeta específica con la función Borrar todas las categorías

Borrar todas las categorías de una cuenta específica con código VBA

---

Borrar todas las categorías de una carpeta específica con la función Borrar todas las categorías

Si solo necesita borrar las categorías de una carpeta específica, haga lo siguiente:

1. Haga clic en la carpeta de la que desea eliminar las categorías de color y, a continuación, pulse Ctrl + A para seleccionar todos los elementos.

2. A continuación, haga clic con el botón derecho y elija Categorizar > Borrar todas las categorías en el menú contextual; consulte la captura de pantalla:

3.Y así, todas las categorías de color de esta carpeta específica se han borrado de una sola vez.

---

Borrar todas las categorías de una cuenta específica con código VBA

Para borrar todas las categorías de todos los elementos, como correos electrónicos, tareas, contactos, notas, etc., de una cuenta, el siguiente código VBA le será de gran ayuda:

1. Haga clic en una cuenta de correo electrónico de la que desee eliminar todas las categorías y, a continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del Módulo.

Código VBA: Borrar todas las categorías de una cuenta específica:

Sub BatchClearAllCategories_AllOutlookItems()
    Dim xCurrentFolder As Outlook.Folder
    Dim xFolder As Folder, xCurFolder As Folder
    Dim xPos As Integer
    Dim xRootFldName As String
    Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder
    xPos = InStr(3, xCurFolder.FolderPath, "\")
    If xPos > 0 Then
        xRootFldName = Mid(xCurFolder.FolderPath, 3, xPos - 3)
    Else
        xRootFldName = Mid(xCurFolder.FolderPath, 3, Len(xCurFolder.FolderPath) - 2)
    End If
    Set xCurrentFolder = Outlook.Application.Session.Folders(xRootFldName)
    For Each xFolder In xCurrentFolder.Folders
        Call ProcessFolders(xFolder)
    Next
    MsgBox "Clear completed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFld As Outlook.Folder)
    Dim xItem As Object
    Dim i As Integer
    Dim xSubfolder As Outlook.Folder
    If CurFld.Items.Count > 0 Then
        For i = CurFld.Items.Count To 1 Step -1
            Set xItem = CurFld.Items.Item(i)
            xItem.Categories = ""
            xItem.Save
        Next
    End If
    If CurFld.Folders.Count = 0 Then Exit Sub
    For Each xSubfolder In CurFld.Folders
        Call ProcessFolders(xSubfolder)
    Next
End Sub

3. A continuación, pulse la tecla F5 para ejecutarla. Aparecerá un cuadro de diálogo que le recordará que se han borrado todas las categorías de la cuenta seleccionada; consulte la captura de pantalla: