若要計算每個聯繫人的年齡並在Outlook日曆中顯示相對重複約會主題中的年齡，請執行以下操作：

1。 打開默認的日曆文件夾，然後按 其他 + 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中一次刪除或刪除所有生日日曆