Pentru a calcula vârsta fiecărui contact și a arăta vârsta în subiectul unei întâlniri recurente relative în calendarul Outlook, procedați după cum urmează:

1. Deschideți folderul implicit al calendarului și apăsați Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module, și apoi lipiți mai jos codul VBA în fereastra noului modul.

VBA: Calculați și afișați vârstele contactelor în calendarul 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. apasă pe F5 tasta sau Alerga pentru a rula acest VBA.

Când reveniți la calendarul implicit, veți vedea vârsta fiecărui contact identificată și afișată în subiectul întâlnirii recurente de ziua de naștere. Vedeți captura de ecran:

notițe:
(1) În ceea ce privește întâlnirea recurentă a unui anumit contact, vârsta acestui contact este îmbrățișată de paranteze similare cu (41 în 2017), 41 este vârsta și 2017 este anul curent.
(2) Dacă modificați ziua de naștere a unui anumit contact în dosarul de contact, vârsta va fi eliminată automat din calendar.
(3) Acest VBA funcționează numai cu calendarul Outlook implicit.

Exportați zilele de naștere ale tuturor contactelor din Outlook

Eliminați sau ștergeți toate calendarele de naștere simultan în Outlook