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) 連絡先の繰り返される誕生日予定の件名には、連絡先の年齢が括弧内に表示されます。たとえば（2017年に41歳）、ここで41は年齢、2017は現在の年です。
(2) 連絡先フォルダー内の連絡先の誕生日を変更すると、カレンダーに表示された年齢は自動的に削除されます。
(3) このVBAは、デフォルトのOutlookカレンダーでのみ動作します。

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

Outlookで一括してすべての誕生日カレンダーを削除または消去する