Hoe leeftijden te berekenen en weergeven op basis van verjaardagen in de Outlook-agenda?

Om de leeftijd van elk contact te berekenen en de leeftijd weer te geven in het onderwerp van de gerelateerde terugkerende afspraak in de Outlook-agenda, volg dan de volgende stappen:

1. Open de standaard agenda-map en druk op "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik op "Invoegen" > "Module" en plak vervolgens de volgende 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 op "F5" of klik op de knop "Uitvoeren" om de VBA uit te voeren.

Wanneer u terugkeert naar de standaard agenda, ziet u de leeftijd van elk contact berekend en weergegeven in het onderwerp van de terugkerende verjaardagsafspraak. Zie screenshot:

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

Verjaardagen van alle contacten uit Outlook exporteren

Alle verjaardagskalenders tegelijk verwijderen in Outlook