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

Author: Xiaoyang Last Modified: 2025-08-06

Supongamos que hay muchos elementos a los que se les ha aplicado una categoría de color en tu Outlook. Si necesitas eliminar todas estas categorías de los elementos, ¿cómo podrías hacerlo rápidamente y sin complicaciones 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 necesitas borrar las categorías en una carpeta específica, sigue estos pasos:

1. Haz clic en la carpeta de la que deseas eliminar las categorías de color, y luego presiona Ctrl + A para seleccionar todos los elementos.

2. Luego haz clic derecho, y elige Categorizar > Borrar Todas las Categorías desde el menú contextual, ver captura de pantalla:

3. Y entonces, todas las categorías de color en esta carpeta específica se habrán borrado de una 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 y otros de una cuenta, el siguiente código VBA puede ayudarte:

1. Haz clic en un correo electrónico de la cuenta de la que deseas limpiar todas las categorías, luego mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega 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. Luego, presiona la tecla F5 para ejecutarlo, y aparecerá un cuadro de diálogo indicándote que todas las categorías de la cuenta seleccionada han sido eliminadas, ver captura de pantalla: