Gehen Sie wie folgt vor, um das Alter jedes Kontakts zu berechnen und das Alter im Betreff eines relativ wiederkehrenden Termins im Outlook-Kalender anzuzeigen:

1. Öffnen Sie den Standardkalenderordner und drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie Insert > Modulund fügen Sie dann den folgenden VBA-Code in das neue Modulfenster ein.

VBA: Berechnen und zeigen Sie das Alter der Kontakte im Outlook-Kalender

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. Drücken Sie die F5 Schlüssel oder die Führen Sie Schaltfläche, um diese VBA auszuführen.

Wenn Sie zum Standardkalender zurückkehren, wird das Alter jedes Kontakts ermittelt und im Betreff des wiederkehrenden Geburtstagstermins angezeigt. Siehe Screenshot:

Notizen:
(1) Bei einem wiederkehrenden Geburtstagstermin eines bestimmten Kontakts wird das Alter dieses Kontakts in Klammern ähnlich wie angegeben (41 in 2017), 41 ist das Alter und 2017 ist das laufende Jahr.
(2) Wenn Sie den Geburtstag eines bestimmten Kontakts im Kontaktordner ändern, wird das Alter automatisch aus dem Kalender entfernt.
(3) Dieser VBA funktioniert nur mit dem Standard-Outlook-Kalender.

Exportieren Sie Geburtstage aller Kontakte aus Outlook

Entfernen oder löschen Sie alle Geburtstagskalender gleichzeitig in Outlook