2 Schnelle Methoden, um das Alter Ihres Outlook-Kontakts zu ermitteln

Manchmal möchten Sie möglicherweise das Alter Ihrer Outlook-Kontakte zählen. Outlook verfügt jedoch nicht über diese Funktion, und das manuelle Zählen ist fehleranfällig. Daher werden in diesem Artikel zwei schnelle Ansätze über Outlook VBA vorgestellt.

Beim Anlegen neuer Outlook-Kontakte können Sie deren Geburtstage eingeben. Outlook erstellt dann automatisch die entsprechenden wiederkehrenden Geburtstagsereignisse in Ihrem Kalender. So erhalten Sie eine Erinnerung, sobald ein Geburtstag ansteht. Nun möchten Sie sicher das Alter des Kontakts wissen. Outlook bietet jedoch keine integrierte Funktion, um das Alter eines Kontakts zu berechnen. Glücklicherweise lässt sich dies mithilfe von Outlook VBA ganz einfach realisieren.

Methode 1: Ermitteln Sie das Alter eines bestimmten Outlook-Kontakts

1. Starten Sie zunächst Outlook und drücken Sie die Tastenkombination „Alt + F11“.
2. Dann sollten Sie im neuen Fenster "Microsoft Visual Basic für Applikationen" ein neues Modul öffnen und die folgenden VBA-Codes darin kopieren.

Sub CountContactAge()
    Dim olContact As ContactItem
    Dim bDay As Date
    Dim Age As Integer
    Dim strMsg As String
    Dim nRes As Integer
 
    Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    If TypeName(olContact) = "ContactItem" Then
       If olContact.Birthday <> #1/1/4501# Then
          bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
          Age = DateDiff("yyyy", olContact.Birthday, bDay)
          strMsg = olContact.FullName & " is " & Age & " years old now."
          nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
       Else
          strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
          nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
       End If
    End If
End Sub

3. Anschließend können Sie das aktuelle Fenster verlassen und das neue Makro wie gewohnt zur Symbolleiste für den Schnellzugriff hinzufügen.
4. Danach können Sie auf Ihren Ordner "Kontakte" zugreifen, den bestimmten Kontakt auswählen und die Makrotaste in der Symbolleiste für den Schnellzugriff drücken.
5. Schließlich können Sie die folgenden Ergebnisse erhalten:

• Wenn Sie die Geburtstage des Kontakts nicht eingegeben haben, erhalten Sie eine Benachrichtigung wie das folgende Bild:
• Wenn Sie den Geburtstag des Kontakts eingegeben haben, wird ein Dialogfeld angezeigt, in dem das Kontaktalter angezeigt wird (siehe Abbildung unten):

Methode 1 ist mühsam, wenn Sie das Alter mehrerer oder aller Ihrer Kontakte ermitteln möchten. Lesen Sie daher bitte weiter, um die Methode 2 anzuwenden.

Methode 2: Ermitteln Sie schnell das Alter aller Outlook-Kontakte

1. Gehen Sie zunächst zum Bereich "Kontakte" und klicken Sie auf der Registerkarte "Ansicht" auf die Schaltfläche "Einstellungen anzeigen".
2. Klicken Sie im neuen Dialogfeld "Erweiterte Ansichtseinstellungen" auf die Schaltfläche "Spalten".
3. Klicken Sie dann im Dialogfeld "Spalten anzeigen" auf die Schaltfläche "Neue Spalte". Geben Sie im Dialogfeld "Neue Spalte" "Alter" in das Feld "Name" ein und klicken Sie dann auf "OK".
4. Klicken Sie anschließend auf eine Reihe von "OK", um zum Outlook-Hauptfenster zurückzukehren.
5. Drücken Sie anschließend „Alt + F11“, um das Fenster „Visual Basic“ zu öffnen und die folgenden Codes in ein neues Modul zu kopieren.

Sub AddAgeColumn()
    Dim obj As Object
    Dim olContact As Object
    Dim olProp As Outlook.UserProperty
    Dim bDay As Date
    Dim Age
 
    On Error Resume Next
 
    For Each obj In Application.ActiveExplorer.Selection
        If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
           Set olContact = obj
           bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
           Age = DateDiff("yyyy", olContact.Birthday, bDay)
           Set olProp = olContact.UserProperties.Add("Age", olText, True)
           olProp.Value = Age
           olContact.Save
        End If
        Err.Clear
    Next
End Sub

6. Später können Sie das neue Makro zur Symbolleiste für den Schnellzugriff hinzufügen.
7. Wählen Sie schließlich alle Kontakte mit „Strg + A“ aus und drücken Sie die Makrotaste in der Symbolleiste für den Schnellzugriff. Sie erhalten das gesamte Alter der Kontakte, mit Ausnahme derjenigen, für die keine Geburtstage ausgefüllt sind (siehe Abbildung unten):

Achten Sie auf Risiken in Bezug auf Ihre Outlook-Daten

Outlook ist anfällig für Korruption. Daher sollten Sie alle Gefahren rund um Ihre Outlook-Daten im Auge behalten. Dies sind normalerweise Viren, Malware, Stromausfälle und menschliche Fehler usw. Darüber hinaus, um sicherzustellen, dass Sie schnell können Relook PST-Datenbeschädigung reparierenHalten Sie besser ein erfahrenes Reparaturwerkzeug in der Nähe DataNumen Outlook Repair.

Einführung des Autors:

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