如何在日历中通过生日计算并显示年龄？

如需计算每位联系人的年龄，并在日历中相关的重复预约主题中显示年龄，请按以下步骤操作：

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 in 2017），其中 41 表示年龄，2017 为当前年份。
（2）如果您在联系人文件夹中更改某联系人的生日，日历中显示的年龄将会自动移除。
（3）此 VBA 仅适用于默认日历。

从 Outlook 导出所有联系人的生日

一键移除或删除 Outlook 中所有生日日历