Como mostrar as idades das pessoas correspondentes para todos os eventos de aniversário na exibição de lista do calendário do Outlook

Alguns usuários também gostariam de ver a idade da pessoa correspondente ao visualizar um evento de aniversário no calendário. Por isso, neste artigo, vamos compartilhar um método para tornar essa ideia realidade com facilidade.

Quando você adiciona as informações de aniversário a um contato, o Outlook cria automaticamente um evento de aniversário no calendário. Nessa circunstância, sempre que você vir eventos de aniversário no calendário, também poderá querer obter as idades das pessoas correspondentes. Assim, aqui apresentaremos uma maneira de realizá-lo.

Mostrar as idades das pessoas correspondentes para todos os eventos de aniversário na exibição de lista

1. No início, inicie o editor VBA do Outlook.
2. Em seguida, copie o código a seguir em um módulo.

Sub ShowAgesOfBirthdayEventsListView()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process All Calendar Folders in Your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Integer
    Dim objItem As Object
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim dStart, dBirth As Date
    Dim nAge As Integer
    Dim objNewProperty As Outlook.UserProperty
    Dim objSubCalendar As Outlook.Folder

    For i = objCalendar.Items.Count To 1 Step -1
        Set objItem = objCalendar.Items.Item(i)
        'Add "Age" Property to Birthday Events
        If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
           Set objBirthdayEvent = objItem
           dStart = objBirthdayEvent.Start
 
           'Count Age
           dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
           nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
 
           Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
           If objNewProperty Is Nothing Then
              Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
           End If
 
           objNewProperty.value = nAge
           objBirthdayEvent.Save
        End If
    Next
 
    'Process All Sub-Calendar Folders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Depois disso, coloque o cursor na primeira sub-rotina e pressione “F5” para executar esta macro.
4. Quando a macro terminar, saia do editor VBA e abra uma pasta de calendário.
5. Em seguida, vá para a guia “Visualizar” e clique em “Alterar visualização” > “Lista”.
6. Em seguida, clique no botão "Exibir configurações".
7. Na caixa de diálogo pop-up, escolha “Colunas”.
8. Em seguida, na próxima caixa de diálogo de “Mostrar colunas”, selecione “Campos definidos pelo usuário na pasta” na lista de “Selecionar campos disponíveis de”.
9. Mais tarde, lance em “Idade” na caixa “Colunas disponíveis” e clique no botão “Adicionar ->”.
10. Por fim, clique em uma série de “OK” até voltar à lista de itens do calendário.
11. Agora, na lista, você pode ver as idades das pessoas em todos os eventos de aniversário, conforme mostrado na figura a seguir.

Corrigir arquivo do Outlook comprometido

Você pode entrar em pânico ao encontrar Outlook corrompido arquivo que contém muitos de seus valiosos e-mails e agendas. Embora esse problema seja bastante desesperador, você ainda precisa se acalmar imediatamente e tomar medidas eficazes. Se você continuar preocupado, a situação pode ficar cada vez pior. Na verdade, existem várias maneiras e utilitários que podem reparar o arquivo danificado, como a ferramenta de reparo da caixa de entrada e uma ferramenta mais robusta e experiente, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server fixo e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com