如何在行事曆上根據生日自動計算並顯示年齡？

若要在行事曆中計算每位聯絡人的年齡，並將年齡顯示於相關週期性約會的主旨中，請依照下列步驟操作：

1. 開啟預設行事曆資料夾，並按下「Alt」+「F11」鍵，即可啟動「Microsoft Visual Basic for Applications」視窗。

2. 按一下「插入」>「模組」，並將下列 VBA 程式碼貼到新開啟的模組視窗中。

VBA：在行事曆中計算並顯示聯絡人年齡

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 中一次移除或刪除所有生日行事曆