Note: The other languages of the website are Google-translated. Back to English

 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


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL