Outlook takviminde doğum günlerine göre yaşları nasıl hesaplayıp gösterebilirim?

Her bir kişinin yaşını hesaplamak ve ilgili tekrarlayan randevunun konusunda yaşı Outlook takviminde göstermek için lütfen aşağıdaki adımları izleyin:

1. Varsayılan takvim klasörünü açın ve "Microsoft Visual Basic for Applications" penceresini görüntülemek için "Alt" + "F11" tuşlarına basın.

2. "Ekle" > "Modül" seçeneğine tıklayıp aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Outlook takviminde kişilerin yaşlarını hesaplayıp gösterme

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. VBA'yı çalıştırmak için "F5" tuşuna basın ya da "Çalıştır" düğmesine tıklayın.

Varsayılan takvime döndüğünüzde, herkesin yaşı otomatik olarak hesaplanacak ve tekrarlayan doğum günü randevusunun konusunda görüntülenecektir. Ekran görüntüsüne göz atın:

Notlar:
(1) Bir kişinin tekrarlayan doğum günü randevusunun konusunda, kişinin yaşı parantez içinde gösterilir; örneğin (41, 2017), burada 41 yaş ve 2017 cari yıldır.
(2) Kişi klasöründen bir kişinin doğum gününü değiştirirseniz, takvimde gösterilen yaş otomatik olarak kaldırılır.
(3) Bu VBA yalnızca varsayılan Outlook takvimiyle çalışır.

Outlook'tan tüm kişilerin doğum günlerini dışa aktarma

Outlook'ta tüm doğum günü takvimlerini aynı anda kaldırma veya silme