Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come cancellare tutte le categorie da Outlook?

Supponiamo che ci siano molti articoli applicati alla categoria dei colori in Outlook. Se è necessario cancellare tutte queste categorie dagli articoli, come è possibile 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 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 in cui si desidera rimuovere le categorie di colori, quindi premere Ctrl + A per selezionare tutti gli articoli.

2. Quindi fai clic con il pulsante destro del mouse, quindi scegli Classificare > Cancella tutte le categorie dal menu di scelta rapida, vedi screenshot:

doc chiaro categoria 1

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


Cancella tutte le categorie da un account specifico con 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. Fai clic sull'e-mail di un account di cui desideri pulire tutte le categorie, quindi tieni premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare la seguente macro in 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, "\") Se 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) Per ogni xFolder In xCurrentFolder.Folders Chiama ProcessFolders (xFolder) Next MsgBox "Cancella completato!", vbInformation + vbOKOnly, "Kutools per 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 Imposta xItem = CurFld.Items.Item (i) xItem.Categories = "" xItem.Save Avanti End If If CurFld.Folders.Count = XNUM X Quindi Esci da Sub per ogni xSubfolder In CurFld.Folders Chiama ProcessFolders (xSubfolder) Next End Sub

3. Quindi, premere F5 chiave per eseguirlo, quindi viene visualizzata una finestra di messaggio per ricordare che tutte le categorie dell'account selezionato sono state cancellate, vedere screenshot:

doc chiaro categoria 2



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.