Hoe berekent en toont u leeftijden op basis van verjaardagen in uw Outlook-agenda?

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

1. Open de standaard agendamap en druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op 'Invoegen' > 'Module' en plak de volgende VBA-code in het nieuwe modulevenster.

VBA: Bereken en toon 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 op F5 of klik op de knop Uitvoeren om de VBA-code te starten.

Wanneer u terugkeert naar de standaardagenda, ziet u dat de leeftijd van elk contact automatisch is berekend en wordt weergegeven in het onderwerp van de terugkerende verjaardagsafspraak. Zie schermafbeelding:

Opmerkingen:
(1) In het onderwerp van de terugkerende verjaardagsafspraak van een contact wordt de leeftijd weergegeven tussen haakjes, bijvoorbeeld (41 in 2017), waarbij 41 de leeftijd is en 2017 het huidige jaar.
(2) Als u de verjaardag van een contact wijzigt in de contactmap, verdwijnt de weergegeven leeftijd automatisch uit de agenda.
(3) Deze VBA werkt uitsluitend met de standaard Outlook-agenda.

Verjaardagen van alle contacten exporteren uit Outlook

Alle verjaardagsagenda’s tegelijk verwijderen of wissen in Outlook