Comment effacer toutes les catégories d'Outlook?

Supposons que de nombreux éléments soient appliqués à la catégorie de couleur dans votre Outlook. Si vous devez effacer toutes ces catégories des éléments, comment pouvez-vous gérer ce travail rapidement et facilement dans Outlook?

Effacer toutes les catégories d'un dossier spécifique avec la fonction Effacer toutes les catégories

Effacer toutes les catégories d'un compte spécifique avec le code VBA

Effacer toutes les catégories d'un dossier spécifique avec la fonction Effacer toutes les catégories

Si vous avez juste besoin d'effacer les catégories dans un dossier spécifique, procédez comme suit:

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

2. Cliquez ensuite avec le bouton droit de la souris, puis choisissez Classer par catégories > Effacer toutes les catégories depuis le menu contextuel, voir capture d'écran:

doc effacer la catégorie 1

3. Et puis, toutes les catégories de couleurs de ce dossier spécifique ont été effacées en même temps.

Effacer toutes les catégories d'un compte spécifique avec le code VBA

Pour effacer 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 rendre service:

1. Cliquez sur l'adresse e-mail d'un compte dont vous souhaitez effacer toutes les catégories, puis maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

Code VBA: effacez 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. Puis appuyez F5 pour l'exécuter, puis une boîte de dialogue s'affiche pour vous rappeler que toutes les catégories du compte sélectionné ont été effacées, voir capture d'écran:

doc effacer la catégorie 2