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 歳 in 2017 年)）。ここで、41 は年齢、2017 は現在の年です。
(2) 連絡先フォルダーで連絡先の誕生日を変更すると、カレンダーに表示されている年齢は自動的に削除されます。
(3) この VBA は、既定のOutlook カレンダーでのみ機能します。

Outlook からすべての連絡先の誕生日をエクスポートする

Outlook で複数の誕生日カレンダーを一度に削除または削除する