Para calcular a idade de cada contato e mostrar a idade no assunto de compromisso recorrente relativo no calendário do Outlook, faça o seguinte:

1. Abra a pasta de calendário padrão e pressione outro + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o código VBA abaixo na janela do novo módulo.

VBA: Calcule e mostre a idade dos contatos no calendário do 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. aperte o F5 chave ou o Execute botão para executar este VBA.

Ao retornar ao calendário padrão, você verá que a idade de cada contato é calculada e exibida no assunto do compromisso de aniversário recorrente. Veja a imagem:

Notas:
(1) No assunto de um compromisso de aniversário recorrente de um determinado contato, a idade desse contato é abrangida por parênteses semelhantes a (41 em 2017), 41 é a idade, e 2017 é o ano atual.
(2) Se você alterar o aniversário de um determinado contato na pasta de contatos, a idade será removida do calendário automaticamente.
(3) Este VBA funciona apenas com o calendário padrão do Outlook.

Exportar aniversários de todos os contatos do Outlook

Remova ou exclua todos os calendários de aniversários de uma só vez no Outlook