Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Accedi
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 per Outlook: porta le funzionalità avanzate di 100 su Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole per l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e funzionalità più automatiche ...
  • Avviso BCC - mostra il messaggio quando si tenta di rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano gli allegatie altro ancora ricorda le funzionalità ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiungi saluto automatico quando rispondi; Aggiungi data nell'oggetto ...
  • Strumenti allegati: gestisci tutti gli allegati in tutti i messaggi, Distacco automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti di consuetudine; Rimuovi email e contatti duplicati... Ti consente di fare in modo più intelligente, più veloce e migliore in Outlook.
scheda kutools outlook kutools tab 1180x121
tiro kutools outlook kutools più tab 1180x121
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.