Untuk menghitung usia setiap kontak dan menunjukkan usia dalam subjek janji temu berulang relatif di kalender Outlook, lakukan hal berikut:

1. Buka folder kalender default, dan tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. Klik Menyisipkan > Modul, lalu tempel kode VBA di bawah ini ke jendela modul baru.

VBA: Hitung dan tampilkan usia kontak di kalender 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. Tap F5 kunci atau Run tombol untuk menjalankan VBA ini.

Saat Anda kembali ke kalender default, Anda akan melihat usia setiap kontak dihitung dan ditampilkan dalam subjek janji ulang tahun yang berulang. Lihat tangkapan layar:

Catatan:
(1) Dalam subjek janji ulang tahun kontak tertentu yang berulang, usia kontak ini diapit oleh tanda kurung yang serupa dengan (41 di 2017), 41 adalah usia, dan 2017 adalah tahun saat ini.
(2) Jika Anda mengubah ulang tahun kontak tertentu di folder kontak, usia akan dihapus dari kalender secara otomatis.
(3) VBA ini hanya berfungsi dengan kalender Outlook default.

Ekspor ulang tahun semua kontak dari Outlook

Hapus atau hapus semua kalender ulang tahun sekaligus di Outlook