¿Cómo calcular y mostrar las edades a partir de las fechas de cumpleaños en el calendario de Outlook?

Para calcular la edad de cada contacto y mostrarla en el asunto de la cita periódica correspondiente en el calendario de Outlook, siga estos pasos:

1. Abra la carpeta predeterminada del calendario y pulse las teclas «Alt» + "F11" para acceder a la ventana de «Microsoft Visual Basic para Aplicaciones».

2. Haga clic en «Insertar» > «Módulo» y, a continuación, pegue el siguiente código VBA en la nueva ventana del módulo.

VBA: Calcular y mostrar las edades de los contactos en el calendario de 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. Pulse "F5" o haga clic en el botón «Ejecutar» para poner en marcha el código VBA.

Al regresar al calendario predeterminado, verá la edad de cada contacto calculada y mostrada en el asunto de su cita periódica de cumpleaños. Consulte la captura de pantalla:

Notas:
(1) En el asunto de la cita periódica de cumpleaños de un contacto, la edad del contacto aparece entre paréntesis, por ejemplo (41 en 2017), donde 41 es la edad y 2017 es el año actual.
(2) Si modifica la fecha de cumpleaños de un contacto en la carpeta de contactos, la edad mostrada se eliminará automáticamente del calendario.
(3) Este código VBA solo funciona con el calendario predeterminado de Outlook.

Exportar los cumpleaños de todos los contactos desde Outlook

Eliminar o borrar todos los calendarios de cumpleaños de una sola vez en Outlook