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

Supongamos que se aplican muchos elementos a la categoría de color en Outlook. Si necesita borrar todas estas categorías de los elementos, ¿cómo podría hacer frente a este trabajo de forma rápida y sencilla en Outlook?

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

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

---

Borre 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 en una carpeta específica, haga lo siguiente:

1. Haga clic en la carpeta en la que desea eliminar las categorías de color y luego presione Ctrl + A para seleccionar todos los elementos.

2. Luego haga clic derecho y luego elija Clasificar por categorías > Borrar todas las categorías en el menú contextual, vea la captura de pantalla:

3. Y luego, todas las categorías de color en esta carpeta específica se borraron a la vez.

---

Borre 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 puede hacerle un favor:

1. Haga clic en el correo electrónico de una cuenta de la que desea limpiar todas las categorías, luego mantenga presionada la tecla ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo Ventana.

Código de VBA: borre 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. Entonces presione F5 para ejecutarlo, y luego aparece un cuadro emergente para recordarle que se han borrado todas las categorías de la cuenta seleccionada, vea la captura de pantalla: