Pour calculer l'âge de chaque contact et afficher l'âge dans le sujet du rendez-vous récurrent relatif dans le calendrier Outlook, procédez comme suit:

1. Ouvrez le dossier de calendrier par défaut et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre de module.

VBA: calculer et afficher l'âge des contacts dans le calendrier Outlook

Option Explicit
Public Sub UpdateAges()
Dim xOlApp As Outlook.Application
Dim xOlFolder As Outlook.Folder
Dim xOlItems As Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAge As Integer
Dim xOlProp As Outlook.UserProperty
Set xOlApp = Outlook.Application
Set xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Set xOlItems = xOlFolder.Items
For Each xAppointmentItem In xOlItems
If (InStr(1, xAppointmentItem.Subject, "Birthday") Or InStr(1, xAppointmentItem.Subject, "Anniversary")) And xAppointmentItem.IsRecurring = True Then
With xAppointmentItem
If xAppointmentItem.UserProperties("Original Subject") Is Nothing Then
Set xOlProp = xAppointmentItem.UserProperties.Add("Original Subject", olText, True)
xOlProp.Value = .Subject
.Save
End If
xAge = DateDiff("yyyy", .Start, Date)
.Subject = .UserProperties("Original Subject") & " (" & xAge & " in " & Format(Date, "yyyy") & ")"
.Save
End With
End If
Next
Set xAppointmentItem = Nothing
Set xOlItems = Nothing
Set xOlFolder = Nothing
Set xOlApp = Nothing
End Sub

3. appuie sur le F5 clé ou le Courir bouton pour exécuter ce VBA.

Lorsque vous revenez au calendrier par défaut, vous verrez l'âge de chaque contact est déterminé et affiché dans le sujet du rendez-vous d'anniversaire récurrent. Voir la capture d'écran:

Notes:
(1) En ce qui concerne le rendez-vous d'anniversaire récurrent d'un certain contact, l'âge de ce contact est entouré de parenthèses similaires à (41 dans 2017), 41 est l'âge, et 2017 est l'année en cours.
(2) Si vous modifiez l'anniversaire d'un certain contact dans le dossier de contacts, l'âge sera automatiquement supprimé du calendrier.
(3) Ce VBA fonctionne uniquement avec le calendrier Outlook par défaut.

Exporter les anniversaires de tous les contacts depuis Outlook

Supprimer ou supprimer tout le calendrier d'anniversaire à la fois dans Outlook