Como agrupar todas as categorias de cores em todos os itens do Outlook

Para alguns fins, você deseja começar a usar categorias de cores do zero no Outlook. Portanto, você gostaria de limpar todas as categorias de cores em todos os itens do Outlook. Neste artigo, apresentaremos um método eficiente para fazer isso.

Por exemplo, para reconstruir as categorias de cores, exclua todas as categorias de cores existentes em seu Outlook. Mas, após a exclusão, você pode descobrir que essas categorias ainda estão anexadas aos itens do Outlook. A única mudança é que as categorias perdem as cores originais, passando a ser exibidas na cor branca. Nessa circunstância, você pode esperar limpar todas as categorias de cores em todos os itens.

Para fazer isso para todos os itens em uma pasta, basta pressionar “Ctrl + A” para selecionar todos os itens, clicar com o botão direito e escolher “Categorizar” e “Limpar todas as categorias” no menu de contexto. Mas, dessa forma, você deve processar cada pasta uma a uma. É muito tedioso. Portanto, a seguir, ensinaremos um método muito mais conveniente.

Lote Limpar todas as categorias de cores em todos os itens do Outlook

1. Para começar, abra o aplicativo Outlook.
2. Em seguida, pressione os atalhos de tecla “Alt + F11” para acionar o editor VBA.
3. Na nova janela exibida, copie e cole o seguinte código VBA em um módulo ou projeto vazio.

Sub BatchClearAllColorCategories_AllOutlookItems()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Change "John Smith" to your own Outlook file's display name
    Set objOutlookFile = Outlook.Application.Session.Folders("John Smith")
  
    For Each objFolder In objOutlookFile.Folders
        Call ProcessFolders(objFolder)
    Next
 
    MsgBox "Completed!", vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    If objCurrentFolder.Items.Count > 0 Then
       For Each objItem In objCurrentFolder.Items
           'Clear all color categories from an item
           If Len(objItem.Categories) <> 0 Then
              objItem.Categories = ""
              objItem.Save
           End If
      Next
    End If
 
    'Process all subfolders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

4. Depois disso, coloque o cursor na primeira sub-rotina e pressione a tecla “F5” para acionar a macro.
5. Quando você receber o prompt “Concluído”, significa que todas as categorias de cores foram apagadas de todos os itens do Outlook.
6. No momento, não importa e-mails, compromissos, tarefas, contatos ou notas em seu Outlook, todos eles não devem ter categorias de cores atribuídas absolutamente.

Resolver problemas graves do Outlook

Talvez você saiba que o Outlook vem pré-instalado com uma ferramenta de reparo integrada – Scanpst.exe. Você já experimentou antes? Para ser honesto, é poderoso o suficiente para lidar com pequenos problemas envolvendo o arquivo PST do Outlook. No entanto, se o problema for consideravelmente grave, como mal Outlook danificado arquivo, o utilitário interno não fará efeitos. Nessa situação, você precisa recorrer a uma ferramenta externa de ponta, como DataNumen Outlook Repair, que superou seus rivais devido à alta recuperação do PST.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com