¿Cómo borrar todas las categorías de Outlook?
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:

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!
📧 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...

