各連絡先の年齢を計算し、Outlookカレンダーで相対的な定期的な予定の件名に年齢を表示するには、次のようにします。

1。 デフォルトのカレンダーフォルダを開き、を押します 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール、次に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ですべての誕生日カレンダーを一度に削除または削除する