Để tính tuổi của mỗi liên hệ và hiển thị tuổi trong chủ đề cuộc hẹn định kỳ tương đối trong lịch Outlook, vui lòng thực hiện như sau:

1. Mở thư mục lịch mặc định và nhấn Khác + F11 để mở cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đun, rồi dán mã VBA bên dưới vào cửa sổ mô-đun mới.

VBA: Tính toán và hiển thị tuổi của các liên hệ trong lịch 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. Nhấn nút F5 chìa khóa hoặc chạy để chạy VBA này.

Khi bạn quay lại lịch mặc định, bạn sẽ thấy tuổi của mỗi liên hệ được tìm ra và hiển thị trong chủ đề của cuộc hẹn sinh nhật định kỳ. Xem ảnh chụp màn hình:

Chú ý:
(1) Trong chủ đề của cuộc hẹn sinh nhật định kỳ của một liên hệ nhất định, tuổi của liên hệ này được bao gồm trong dấu ngoặc đơn tương tự như (41 trong 2017), 41 là tuổi, và 2017 là năm hiện tại.
(2) Nếu bạn thay đổi ngày sinh của một liên hệ nhất định trong thư mục liên hệ, tuổi sẽ tự động bị xóa khỏi lịch.
(3) VBA này chỉ hoạt động với lịch Outlook mặc định.

Xuất ngày sinh của tất cả các liên hệ từ Outlook

Xóa hoặc xóa tất cả lịch sinh nhật cùng một lúc trong Outlook