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

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

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

2. "Ekle" > "Modül"'e tıklayın ve ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın.

VBA: Outlook takviminde kişilerin yaşlarını hesaplayın ve gösterin

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" tuşuna basın veya "Çalıştır" düğmesine tıklayarak VBA'yı çalıştırın.

Varsayılan takvime geri döndüğünüzde, her bir kişinin yaşı hesaplanmış ve tekrar eden doğum günü randevusunun konusunda gösterilmiş olacaktır. Ekran görüntüsüne bakınız:

Notlar:
(1) Bir kişinin doğum günü tekrarlayan randevusunun konusunda, kişinin yaşı parantez içinde gösterilir, örneğin (2017'de 41), burada 41 yaş ve 2017 ise mevcut yıldır.
(2) Eğer bir kişinin doğum gününü kişi klasöründe değiştirirseniz, gösterilen yaş takvimden otomatik olarak kaldırılacaktır.
(3) Bu VBA yalnızca varsayılan Outlook takvimi ile çalışır.

Outlook'dan tüm kişilerin doğum günlerini dışa aktarın

Outlook'ta tüm doğum günü takvimlerini tek seferde kaldırın veya silin