Como remover em lote categorias de cores excluídas de todos os itens do Outlook

Depois de excluir uma categoria de cores, ela ainda será exibida nos itens do Outlook aos quais você atribuiu a categoria. Este Post ensinará como remover rapidamente essas categorias de cores dos itens do Outlook.

O Outlook permite que os usuários adicionem e excluam categorias de cores à vontade. No entanto, embora você exclua uma categoria de cores, se você a atribuiu a muitos itens do Outlook antes, essa categoria de cores não será removida dos itens de acordo. Agora que você excluiu esta categoria de cor, o que significa que é inútil, por que não removê-la também dos itens do Outlook? Agora, a seguir, ensinaremos um método rápido para realizá-lo.

Lote para remover categorias de cores excluídas de todos os itens do Outlook

1. Logo no início, starInstale seu aplicativo Outlook como de costume.
2. Em seguida, após acessar a janela principal do Outlook, você pode pressionar os botões de teclas “Alt + F11”, que abrirão a janela “Microsoft Visual Basic for Applications”.
3. Na nova tela, você precisa encontrar e abrir um módulo não utilizado.
4. Em seguida, copie o seguinte código VBA para este módulo.

Dim objSourceStore As Outlook.Store Dim strMasterCategoryList As String Sub DeleteAllColorCategories_ThatAreNotInMasterCategoryList() Dim objSourcePSTFile As Outlook.Folder Dim objFolder As Outlook.Folder 'Especificar o arquivo PST do Outlook de origem Definir objSourceStore = Application.Session.Stores.Item("John Smith") 'Obter todas as categorias de cores deste arquivo PST para cada objCategory Em objSourceStore.Categories strMasterCategoryList = objCategory.Name & ", " & strMasterCategoryList Next Set objSourcePSTFile = Outlook.Application.Session.folders("John Smith") Para cada objFolder In objSourcePSTFile.folders Chamar ProcessFolders(objFolder) Next End Sub Sub ProcessFolders( ByVal objCurrentFolder As Outlook.Folder) Dim objVariant As Variant Dim strCategories As String Dim varArray As Variant Dim i, n As Long For i = objCurrentFolder.Items.count To 1 Step -1 Set objVariant = objCurrentFolder.Items.Item(i) If objVariant.Categories <> "" Then strCategories = objVariant.Categories 'Obter tudo categorias de cores deste item varArray = Split(objVariant.Categories, ",") For n = 0 To UBound(varArray) 'Verifica se cada categoria de cor deste item está na lista de categoria mestre If InStr(1, strMasterCategoryList, Trim(varArray(n))) = 0 Then 'Se não, remova esta categoria Call RemoveCategory(objVariant, varArray(n)) objVariant.Save End If Next n End If Next i 'Processa todas as subpastas recursivamente If objCurrentFolder.folders.count > 0 Then For Each objSubfolder In objCurrentFolder.folders Call ProcessFolders(objSubfolder) Next End If End Sub Sub RemoveCategory( objCurrentItem, strCategory) Dim varNewArray As Variant varNewArray = Split(objCurrentItem.Categories, ",") If UBound(varNewArray) >= 0 Then For i = 0 To UBound(varNewArray) 'Localizar a categoria de cor específica If Trim(varNewArray(i )) = strCategory Then 'Excluir deste item varNewArray(i) = "" 'Recriar as categorias de cores deste item objCurrentItem.Categories = Join(varNewArray, ",") Exit Sub End If Next End If End Sub

5. Depois disso, você deve alterar o nível de segurança de macro do Outlook para baixo.
6. Eventualmente, você pode executar esta macro. Basta pressionar a tecla F5 nesta tela de macro ou clicar no ícone “Executar” na barra de ferramentas.
7. Depois que a execução da macro terminar, você verá que todas as categorias de cores que foram excluídas foram removidas dos itens do Outlook.

Outlook é propenso a corrupção

Se você é um usuário regular do Outlook, talvez tenha encontrado vários problemas em seu Outlook. Em geral, para corrigir os pequenos erros envolvendo o arquivo PST, basta recorrer ao utilitário de correção embutido – ScanpstName. Mas, se você sofrer sérios problemas, como arquivo PST severamente comprometido, você não tem escolha a não ser usar uma ferramenta externa potente, como DataNumen Outlook Repair.

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 mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com