2 méthodes pour afficher automatiquement les éléments de calendrier privés dans une couleur spécifique dans votre Outlook

Pour distinguer plus facilement les éléments privés des éléments publics dans votre calendrier, vous pouvez afficher automatiquement les éléments privés dans une couleur spécifique, comme le rouge, afin de les mettre en évidence. Cet article présente deux méthodes pour y parvenir.

De nombreux utilisateurs préfèrent classer les éléments de calendrier selon qu'ils sont privés ou non. Étant donné que, dans le calendrier, les éléments privés n'ont pas de différences manifestes de vision par défaut, afin d'identifier les éléments privés beaucoup plus facilement, vous pouvez laisser Outlook les afficher automatiquement dans une couleur spécifique. Ici, nous allons vous apprendre 2 approches pour l'obtenir.

Méthode 1 : Utilisez la « mise en forme conditionnelle »

1. Pour commencer, ouvrez Outlook et accédez au volet « Calendrier ».
2. Ensuite, passez à l'onglet "Affichage" et changez la vue en "Calendrier".
3. Ensuite, appuyez sur le bouton "Afficher les paramètres".
4. Dans la boîte de dialogue contextuelle, cliquez sur "Mise en forme conditionnelle".
5. Plus tard, dans la boîte de dialogue suivante, cliquez sur "Ajouter" et entrez un nom, comme "Privé".
6. Ensuite, sélectionnez une couleur spécifique, comme "Rouge foncé" pour mon instance.
7. Après cela, cliquez sur le bouton "Condition".
8. Dans la boîte de dialogue suivante, passez à l'onglet "Avancé" et ajoutez le filtre suivant :

Sensitivity > equals > private

9. Enfin, cliquez sur "Ajouter à la liste" et plusieurs "OK" pour enregistrer cette règle de formatage.
10. A partir de maintenant, tous les éléments du calendrier privé seront affichés en "Rouge foncé".

Méthode 2: utilisez "Auto Color Categorize" dans VBA

1. Tout d'abord, créez une nouvelle catégorie de couleur appelée "Privé" avec une couleur spécifique.
2. Ensuite, lancez l'éditeur Outlook VBA selon "Comment exécuter le code VBA dans votre Outlook" .
3. Ensuite, placez le code suivant dans le projet "ThisOutlookSession".

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

4. Enfin, redémarrez Outlook pour activer cette macro.
5. Maintenant, vous pouvez essayer.

• Proposez un élément dans le calendrier par défaut.
• Ensuite, changez-le en "Privé".
• À la fois, la catégorie de couleur "Privé" sera attribuée à cet élément, comme indiqué dans la capture d'écran suivante.

Sauvez vos précieuses données Outlook

Étant donné qu'Outlook est vulnérable, de nombreux utilisateurs ont déjà été sujets à la corruption de PST. En général, lorsque vous le rencontrez, vous pouvez d'abord essayer le outil de réparation de boîte de réception pour réparer le fichier. Pourtant, en cas d'échec, vous pouvez recourir à un utilitaire externe plus puissant et plus fiable, comme DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corruption sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com