Как рассчитать и отобразить возраст по дням рождения в календаре Outlook?

Чтобы рассчитать возраст каждого контакта и показать его в теме связанного повторяющегося события в календаре Outlook, выполните следующие действия:

1. Откройте папку со стандартным календарем и нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".

2. Нажмите "Вставить" → "Модуль", а затем вставьте следующий код VBA в новое окно модуля.

VBA: Рассчитайте и покажите возраст контактов в календаре 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. Нажмите "F5" или кнопку "Выполнить", чтобы запустить VBA.

Когда вы вернетесь к стандартному календарю, вы увидите, что возраст каждого контакта рассчитан и отображен в теме повторяющегося события дня рождения. См. скриншот:

Примечания:
(1) В теме повторяющегося события дня рождения контакта возраст указан в скобках, например (41 в 2017), где 41 — это возраст, а 2017 — текущий год.
(2) Если вы измените день рождения контакта в папке контактов, отображаемый возраст будет автоматически удален из календаря.
(3) Этот VBA работает только со стандартным календарем Outlook.

Экспорт дней рождения всех контактов из Outlook

Удаление или удаление всех календарей дней рождения одновременно в Outlook