Comment supprimer toutes les catégories dans Outlook ?

Supposons que de nombreux éléments de votre Outlook soient associés à des catégories de couleur. Comment supprimer rapidement et facilement toutes ces catégories ?

Supprimer toutes les catégories d’un dossier spécifique à l’aide de la fonctionnalité « Supprimer toutes les catégories »

Supprimer toutes les catégories d’un compte spécifique à l’aide d’un code VBA

---

Supprimer toutes les catégories d’un dossier spécifique à l’aide de la fonctionnalité « Supprimer toutes les catégories »

Si vous souhaitez uniquement supprimer les catégories d’un dossier spécifique, procédez comme suit :

1. Cliquez sur le dossier dont vous souhaitez supprimer les catégories de couleur, puis appuyez sur Ctrl + A pour sélectionner tous les éléments.

2. Cliquez ensuite avec le bouton droit, puis choisissez Catégoriser > Supprimer toutes les catégories dans le menu contextuel. Voir la capture d’écran :

3.Toutes les catégories de couleur de ce dossier spécifique ont été supprimées en une seule opération.

---

Supprimer toutes les catégories d’un compte spécifique à l’aide d’un code VBA

Pour supprimer toutes les catégories de tous les éléments (tels que les e-mails, les tâches, les contacts, les notes, etc.) d’un compte, le code VBA ci-dessous peut vous être utile :

1. Cliquez sur un e-mail du compte dont vous souhaitez supprimer toutes les catégories, puis maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre Module.

Code VBA : Supprimer toutes les catégories d’un compte spécifique :

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. Appuyez ensuite sur la touche F5 pour l’exécuter. Une boîte de dialogue s’affiche alors pour vous informer que toutes les catégories du compte sélectionné ont été supprimées. Voir la capture d’écran :