Anzeigen des Alters der entsprechenden Personen für alle Geburtstagsereignisse in der Listenansicht des Outlook-Kalenders

Einige Benutzer möchten auch das Alter der entsprechenden Person sehen, wenn sie ein Geburtstagsereignis im Kalender anzeigen. Daher werden wir in diesem Artikel eine Methode vorstellen, mit der diese Idee mühelos verwirklicht werden kann.

Wenn Sie einem Kontakt die Geburtstagsinformationen hinzufügen, erstellt Outlook automatisch ein Geburtstagsereignis im Kalender. Unter diesen Umständen möchten Sie möglicherweise jedes Mal, wenn Sie Geburtstagsereignisse im Kalender sehen, auch das Alter der entsprechenden Personen ermitteln. Daher stellen wir Ihnen hier einen Weg vor, dies zu realisieren.

Zeigen Sie das Alter der entsprechenden Personen für alle Geburtstagsereignisse in der Listenansicht an

1. Starten Sie zu Beginn den Outlook VBA-Editor.
2. Kopieren Sie dann den folgenden Code in ein Modul.

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. Setzen Sie danach den Cursor in die erste Unterroutine und drücken Sie "F5", um dieses Makro auszuführen.
4. Wenn das Makro fertig ist, beenden Sie den VBA-Editor und öffnen Sie einen Kalenderordner.
5. Gehen Sie anschließend zur Registerkarte "Ansicht" und klicken Sie auf "Ansicht ändern"> "Liste".
6. Klicken Sie anschließend auf die Schaltfläche "Einstellungen anzeigen".
7. Wählen Sie im Popup-Dialogfeld "Spalten".
8. Wählen Sie dann im nächsten Dialogfeld unter "Spalten anzeigen" "Benutzerdefinierte Felder im Ordner" aus der Liste "Verfügbare Felder auswählen aus" aus.
9. Stellen Sie später im Feld "Verfügbare Spalten" auf "Alter" und klicken Sie auf "Hinzufügen ->".
10. Klicken Sie schließlich auf eine Reihe von "OK", bis Sie zur Liste der Kalenderelemente zurückkehren.
11. In der Liste können Sie nun das Alter aller Geburtstagsereignisse der Personen sehen, wie in der folgenden Abbildung dargestellt.

Korrigieren Sie die gefährdete Outlook-Datei

Sie können Panik bekommen, wenn Sie begegnen beschädigtes Outlook Datei, die viele Ihrer wertvollen E-Mails und Zeitpläne enthält. Ungeachtet dessen, dass ein solches Problem ziemlich verzweifelt ist, müssen Sie sich sofort beruhigen und wirksame Maßnahmen in Betracht ziehen. Wenn Sie sich Sorgen machen, kann sich die Situation immer weiter verschlechtern. Tatsächlich gibt es mehrere Möglichkeiten und Dienstprogramme, mit denen die beschädigte Datei repariert werden kann, z. B. das Reparaturwerkzeug für den Posteingang und ein robusteres und erfahreneres Tool wie DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Server fixieren und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX