Skip to main content

 Como limpar todas as categorias do Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

Suponha que existam muitos itens aplicados à categoria de cor no seu Outlook. Se você precisar limpar todas essas categorias dos itens, como poderia realizar essa tarefa rapidamente e facilmente no Outlook?

Limpe todas as categorias de uma pasta específica com o recurso Limpar Todas as Categorias

Limpe todas as categorias de uma conta específica com código VBA


Limpe todas as categorias de uma pasta específica com o recurso Limpar Todas as Categorias

Se você precisa apenas limpar as categorias em uma pasta específica, siga estas etapas:

1. Clique na pasta da qual deseja remover as categorias de cor e, em seguida, pressione Ctrl + A para selecionar todos os itens.

2. Em seguida, clique com o botão direito do mouse e escolha Adicionar categorias > Limpar Todas as Categorias no menu de contexto, veja a captura de tela:

doc clear category 1

3. E então, todas as categorias de cor nesta pasta específica serão limpas de uma vez.


Limpe todas as categorias de uma conta específica com código VBA

Para limpar todas as categorias de todos os itens, como emails, tarefas, contatos, notas e assim por diante, de uma conta, o código VBA abaixo pode ajudá-lo:

1. Clique em um email da conta da qual deseja limpar todas as categorias, depois mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.

Código VBA: Limpar todas as categorias de uma conta 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. Depois, pressione a tecla F5 para executá-la, e uma caixa de aviso será exibida para lembrá-lo de que todas as categorias da conta selecionada foram limpas, veja a captura de tela:

doc clear category 2

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2