Comment effacer par lots toutes les catégories de couleurs dans tous les éléments Outlook

Pour certaines raisons, vous souhaitez utiliser les catégories de couleurs dans Outlook. Il vous faudra donc effacer toutes les catégories de couleurs de tous les éléments Outlook. Cet article vous présente une méthode efficace pour y parvenir.

Par exemple, pour reconstruire les catégories de couleurs, vous supprimez toutes les catégories de couleurs existantes dans votre Outlook. Mais, après la suppression, vous constaterez peut-être que ces catégories sont toujours attachées aux éléments Outlook. Le seul changement est que les catégories perdent leurs couleurs d'origine, s'affichant en blanc. Dans ces circonstances, vous pouvez espérer effacer toutes les catégories de couleurs dans tous les éléments.

Pour ce faire pour tous les éléments d'un dossier, vous pouvez simplement appuyer sur "Ctrl + A" pour sélectionner tous les éléments, faire un clic droit et choisir "Catégoriser" et "Effacer toutes les catégories" dans le menu contextuel. Mais, de cette façon, vous devez traiter chaque dossier un par un. C'est trop fastidieux. Ainsi, dans ce qui suit, nous vous apprendrons une méthode beaucoup plus pratique.

Lot Effacer toutes les catégories de couleurs dans tous les éléments Outlook

1. Pour commencer, lancez l'application Outlook.
2. Ensuite, appuyez sur les raccourcis clavier "Alt + F11" pour déclencher l'éditeur VBA.
3. Dans la nouvelle fenêtre qui s'affiche, copiez et collez le code VBA suivant dans un module ou un projet vide.

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. Après cela, placez le curseur dans le premier sous-programme, puis appuyez sur la touche "F5" pour déclencher la macro.
5. Lorsque vous obtenez l'invite "Terminé", cela signifie que toutes les catégories de couleurs ont été effacées de tous les éléments Outlook.
6. À l'heure actuelle, quels que soient les e-mails, les rendez-vous, les tâches, les contacts ou les notes dans votre Outlook, tous ne doivent avoir aucune catégorie de couleur attribuée de manière absolue.

Résoudre les problèmes Outlook graves

Peut-être savez-vous qu'Outlook est préinstallé avec un outil de réparation intégré - Scanpst.exe. Avez-vous déjà essayé auparavant? Pour être honnête, il est suffisamment puissant pour gérer les petits problèmes liés à votre fichier Outlook PST. Cependant, si le problème est considérablement grave, comme mal Outlook endommagé fichier, l'utilitaire interne ne fera pas d'effets. Dans cette situation, vous devez vous rabattre sur un outil externe de pointe, tel que DataNumen Outlook Repair, qui a épaulé ses rivaux en raison de sa forte récupération PST.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server fixer et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com