Come eliminare in batch tutte le categorie di colori in tutti gli elementi di Outlook

Per alcuni motivi, potresti voler iniziare a utilizzare le categorie di colore da zero in Outlook. Pertanto, vorresti cancellare tutte le categorie di colore da tutti gli elementi di Outlook. In questo articolo, ti mostreremo un metodo efficace per farlo.

Ad esempio, per ricostruire le categorie di colori, elimini tutte le categorie di colori esistenti in Outlook. Tuttavia, dopo l'eliminazione, potresti scoprire che queste categorie sono ancora allegate agli elementi di Outlook. L'unico cambiamento è che le categorie perdono i loro colori originali, visualizzandosi in bianco. In questa circostanza, potresti sperare di cancellare tutte le categorie di colori in tutti gli articoli.

Per fare ciò per tutti gli elementi in una cartella, puoi semplicemente premere "Ctrl + A" per selezionare tutti gli elementi, fare clic con il tasto destro e scegliere "Categorizza" e "Cancella tutte le categorie" dal menu contestuale. Ma, in questo modo, devi elaborare ogni cartella una per una. È troppo noioso. Quindi, di seguito, ti insegneremo un metodo molto più conveniente.

Batch Cancella tutte le categorie di colori in tutti gli elementi di Outlook

1. Innanzitutto, avvia l'applicazione Outlook.
2. Quindi, premi le scorciatoie da tastiera "Alt + F11" per attivare l'editor VBA.
3. Nella nuova finestra visualizzata, copia e incolla il seguente codice VBA in un modulo o progetto vuoto.

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. Successivamente, posizionare il cursore nella prima subroutine e quindi premere il tasto "F5" per attivare la macro.
5. Quando ricevi il messaggio "Completato", significa che tutte le categorie di colori sono state cancellate da tutti gli elementi di Outlook.
6. Al momento, indipendentemente da e-mail, appuntamenti, attività, contatti o note in Outlook, a tutti non devono essere assegnate categorie di colore in modo assoluto.

Risolvi gravi problemi di Outlook

Forse saprai che Outlook è preinstallato con uno strumento di riparazione integrato: Scanpst.exe. L'hai mai provato prima? Ad essere onesti, è abbastanza potente da gestire piccoli problemi che coinvolgono il file PST di Outlook. Tuttavia, se il problema è molto grave, ad esempio male Outlook danneggiato file, l'utility interna non produrrà effetti. In questa situazione, devi ripiegare su uno strumento esterno di punta, come ad esempio DataNumen Outlook Repair, che ha scavalcato i suoi rivali grazie al suo elevato recupero PST.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui SQL Server fisso e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com