Come cancellare tutte le categorie da Outlook?

Supponendo che ci siano molti elementi applicati alla categoria del colore in Outlook. Se devi cancellare tutte queste categorie dagli elementi, come potresti gestire questo lavoro in modo rapido e semplice in Outlook?

Cancella tutte le categorie da una cartella specifica con la funzione Cancella tutte le categorie

Cancella tutte le categorie da un account specifico con il codice VBA

---

Cancella tutte le categorie da una cartella specifica con la funzione Cancella tutte le categorie

Se hai solo bisogno di cancellare le categorie in una cartella specifica, fai come segue:

1. Fare clic sulla cartella da cui si desidera rimuovere le categorie di colore, quindi premere Ctrl + A per selezionare tutti gli elementi.

2. Quindi fare clic con il pulsante destro del mouse e quindi scegliere Classificare > Cancella tutte le categorie dal menu contestuale, vedi screenshot:

3. E poi, tutte le categorie di colori in questa cartella specifica sono state cancellate contemporaneamente.

---

Cancella tutte le categorie da un account specifico con il codice VBA

Per cancellare tutte le categorie da tutti gli elementi, come e-mail, attività, contatti, note e così via da un account, il codice VBA sottostante può farti un favore:

1. Fare clic sull'e-mail di un account da cui si desidera pulire tutte le categorie, quindi tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: cancella tutte le categorie da un account specifico:

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. Quindi, premere F5 tasto per eseguirlo, quindi viene visualizzata una finestra di messaggio per ricordarti che tutte le categorie dell'account selezionato sono state cancellate, vedi screenshot: