Comment afficher les âges des personnes correspondantes pour tous les événements d'anniversaire dans la vue de liste du calendrier Outlook

Certains utilisateurs aimeraient également voir l'âge de la personne correspondante lors de la visualisation d'un événement d'anniversaire dans le calendrier. Par conséquent, dans cet article, nous partagerons une méthode pour concrétiser facilement cette idée.

Lorsque vous ajoutez les informations d'anniversaire à un contact, Outlook crée automatiquement un événement d'anniversaire dans le calendrier. Dans ce cas, chaque fois que vous voyez des événements d'anniversaire dans le calendrier, vous pouvez également obtenir l'âge des personnes correspondantes. Ainsi, nous allons ici vous présenter une manière de le réaliser.

Afficher les âges des personnes correspondantes pour tous les événements d'anniversaire dans la vue de liste

1. Au tout début, lancez l'éditeur Outlook VBA.
2. Ensuite, copiez le code suivant dans un module.

Sub ShowAgesOfBirthdayEventsListView()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process All Calendar Folders in Your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Integer
    Dim objItem As Object
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim dStart, dBirth As Date
    Dim nAge As Integer
    Dim objNewProperty As Outlook.UserProperty
    Dim objSubCalendar As Outlook.Folder

    For i = objCalendar.Items.Count To 1 Step -1
        Set objItem = objCalendar.Items.Item(i)
        'Add "Age" Property to Birthday Events
        If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
           Set objBirthdayEvent = objItem
           dStart = objBirthdayEvent.Start
 
           'Count Age
           dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
           nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
 
           Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
           If objNewProperty Is Nothing Then
              Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
           End If
 
           objNewProperty.value = nAge
           objBirthdayEvent.Save
        End If
    Next
 
    'Process All Sub-Calendar Folders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Après cela, placez le curseur dans le premier sous-programme et appuyez sur "F5" pour exécuter cette macro.
4. Lorsque la macro se termine, quittez l'éditeur VBA et ouvrez un dossier de calendrier.
5. Ensuite, allez dans l'onglet "Affichage" et cliquez sur "Modifier l'affichage"> "Liste".
6. Ensuite, cliquez sur le bouton "Afficher les paramètres".
7. Dans la boîte de dialogue contextuelle, choisissez "Colonnes".
8. Ensuite, dans la boîte de dialogue suivante de "Afficher les colonnes", sélectionnez "Champs définis par l'utilisateur dans le dossier" dans la liste "Sélectionner les champs disponibles à partir de".
9. Plus tard, pitchez sur "Âge" dans la case "Colonnes disponibles" et cliquez sur le bouton "Ajouter ->".
10. Enfin, cliquez sur une série de "OK" jusqu'à revenir à la liste des éléments du calendrier.
11. Maintenant, dans la liste, vous pouvez voir les âges des personnes de tous les événements d'anniversaire, comme illustré dans la figure suivante.

Réparer le fichier Outlook compromis

Vous pouvez paniquer lorsque vous rencontrez Outlook corrompu fichier qui contient beaucoup de vos précieux e-mails et horaires. Bien qu'un tel problème soit assez désespéré, vous devez tout de même vous calmer et envisager des mesures efficaces. Si vous continuez à vous inquiéter, la situation peut empirer. En fait, il existe plusieurs façons et utilitaires qui peuvent réparer le fichier endommagé, tels que l'outil de réparation de la boîte de réception et un outil plus robuste et expérimenté, 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 SQL Server fixer et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com