Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

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:

doc clear category 1

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:

doc clear category 2

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Descubre la nueva versión GRATUITA de Kutools para Outlook con más de70 funciones increíbles, ¡para que la disfrutes PARA SIEMPRE! ¡Haz clic para descargar ahora!

🤖 Kutools AI : Utiliza tecnología avanzada de IA para gestionar correos electrónicos sin esfuerzo, incluyendo responder, resumir, optimizar, ampliar, traducir y redactar emails.

📧 Automatización de Email: Respuesta automática (Disponible para POP e IMAP) / Programar envío de correos / CC/BCC automático por regla al enviar correo / Reenvío automático (Regla avanzada) / Agregar saludo automáticamente / Dividir automáticamente emails con múltiples destinatarios en mensajes individuales...

📨 Gestión de Email: Recuperar correo electrónico / Bloquear correos fraudulentos por asunto y otros criterios / Eliminar correos electrónicos duplicados / Búsqueda Avanzada / Organizar carpetas...

📁 Adjuntos Pro: Guardar en lote / Desanexar en lote / Comprimir en lote / Guardar automáticamente / Desconectar automáticamente / Auto Comprimir...

🌟 Magia en la interfaz: 😊Más emojis bonitos y modernos / Avisos cuando llegan correos importantes / Minimiza Outlook en vez de cerrarlo...

👍 Funciones de un solo clic: Responder a Todos con Adjuntos / Correos electrónicos anti-phishing / 🕘Mostrar la zona horaria del remitente...

👩🏼‍🤝‍👩🏻 Contactos y Calendario: Agregar contactos en lote desde correos seleccionados / Dividir un grupo de contactos en grupos individuales / Eliminar recordatorio de cumpleaños...

Desbloquea al instante Kutools para Outlook con un solo clic. ¡No esperes más, descárgalo ahora y aumenta tu productividad!

kutools for outlook features1 kutools for outlook features2