Jak wyświetlić wiek odpowiednich osób dla wszystkich wydarzeń urodzinowych w widoku listy kalendarza programu Outlook

Niektórzy użytkownicy chcieliby również zobaczyć wiek odpowiedniej osoby podczas przeglądania wydarzenia urodzinowego w kalendarzu. Dlatego w tym artykule przedstawimy metodę łatwego urzeczywistnienia tego pomysłu.

Po dodaniu informacji o urodzinach do kontaktu program Outlook automatycznie utworzy wydarzenie urodzinowe w kalendarzu. W tej sytuacji za każdym razem, gdy widzisz w kalendarzu wydarzenia urodzinowe, możesz również chcieć uzyskać informacje o wieku odpowiednich osób. Dlatego tutaj przedstawimy Ci sposób, aby to zrealizować.

Pokaż wiek odpowiednich osób dla wszystkich wydarzeń urodzinowych w widoku listy

1. Na samym początku uruchom edytor Outlook VBA.
2. Następnie skopiuj następujący kod do modułu.

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. Następnie umieść kursor w pierwszym podprogramie i naciśnij „F5”, aby uruchomić to makro.
4. Po zakończeniu działania makra zamknij edytor VBA i otwórz folder kalendarza.
5. Następnie przejdź do zakładki „Widok” i kliknij „Zmień widok”> „Lista”.
6. Następnie kliknij przycisk „Wyświetl ustawienia”.
7. W wyskakującym oknie dialogowym wybierz „Kolumny”.
8. Następnie w kolejnym oknie dialogowym „Pokaż kolumny” wybierz „Pola zdefiniowane przez użytkownika w folderze” z listy „Wybierz dostępne pola z”.
9. Później wybierz „Wiek” w polu „Dostępne kolumny” i kliknij przycisk „Dodaj ->”.
10. Na koniec kliknij serię „OK”, aż wrócisz do listy pozycji kalendarza.
11. Teraz na liście możesz zobaczyć wiek osób we wszystkich wydarzeniach urodzinowych, jak pokazano na poniższym rysunku.

Napraw zaatakowany plik programu Outlook

Podczas spotkania możesz wpaść w panikę uszkodzony Outlook plik zawierający wiele cennych e-maili i harmonogramów. Mimo, że taka sprawa jest dość rozpaczliwa, trzeba się od razu uspokoić i pomyśleć o skutecznych środkach. Jeśli nadal będziesz się martwić, sytuacja może się pogarszać. W rzeczywistości istnieje wiele sposobów i narzędzi, które mogą naprawić uszkodzony plik, takich jak narzędzie do naprawy skrzynki odbiorczej oraz bardziej niezawodne i doświadczone narzędzie, takie jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server stały i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com