Om de leeftijd van elk contact te berekenen en de leeftijd weer te geven in het onderwerp van een relatief terugkerende afspraak in de Outlook-agenda, gaat u als volgt te werk:

1. Open de standaardagendamap en druk op anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe modulevenster.

VBA: bereken en toon de leeftijden van contacten in de Outlook-agenda

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. druk de F5 sleutel of de lopen knop om deze VBA uit te voeren.

Wanneer u terugkeert naar de standaardkalender, ziet u dat de leeftijd van elk contact wordt bepaald en weergegeven in het onderwerp van de terugkerende verjaardagsafspraak. Zie screenshot:

Opmerkingen:
(1) In het onderwerp van de terugkerende verjaardagsafspraak van een bepaalde contactpersoon, wordt de leeftijd van deze contactpersoon omarmd door haakjes, vergelijkbaar met (41 in 2017), 41 is de leeftijd, en 2017 is het huidige jaar.
(2) Als u de geboortedatum van een bepaalde contactpersoon in de contactmap wijzigt, wordt de leeftijd automatisch uit de agenda verwijderd.
(3) Deze VBA werkt alleen met de standaard Outlook-agenda.

Exporteer verjaardagen van alle contacten vanuit Outlook

Verwijder of verwijder alle verjaardagskalender tegelijk in Outlook