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

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

1. Откройте папку календаря по умолчанию и нажмите «Alt» + «F11», чтобы запустить окно Microsoft Visual Basic для приложений.

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