2 snelle methoden om de leeftijd van uw Outlook-contactpersoon te achterhalen

Soms wilt u misschien de leeftijd van uw Outlook-contactpersonen tellen. Maar Outlook heeft deze functie niet en handmatig tellen is foutgevoelig. Daarom introduceert dit artikel 2 snelle benaderingen via Outlook VBA.

Wanneer je nieuwe contactpersonen in Outlook aanmaakt, kun je hun geboortedata invoeren. Outlook maakt dan automatisch de bijbehorende terugkerende verjaardagsgebeurtenissen in je agenda aan. Je ontvangt dus een herinnering wanneer iemand jarig is. Je wilt natuurlijk ook weten hoe oud de contactpersoon is. Outlook heeft echter geen ingebouwde functie om de leeftijd van een contactpersoon te berekenen. Gelukkig kunnen we Outlook VBA gebruiken om dit heel eenvoudig te doen.

Methode 1: verkrijg de leeftijd van een specifieke Outlook-contactpersoon

1. Om te beginnen, open Outlook en druk op de toetsencombinatie "Alt + F11".
2. Vervolgens moet u in het nieuwe venster "Microsoft Visual Basic for Applications" een nieuwe module openen en de volgende VBA-codes erin kopiëren.

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. Vervolgens kunt u het huidige venster verlaten en zoals gewoonlijk de nieuwe macro toevoegen aan de werkbalk Snelle toegang.
4. Daarna hebt u toegang tot uw map Contacten en selecteert u het specifieke contact en drukt u op de macroknop in de werkbalk Snelle toegang.
5. Uiteindelijk kunt u de volgende resultaten krijgen:

• Als u de verjaardagen van het contact niet hebt ingevoerd, ontvangt u een waarschuwing zoals de volgende afbeelding:
• Als u de verjaardag van het contact hebt ingevoerd, krijgt u een dialoogvenster met de leeftijd van het contact, zoals de afbeelding hieronder:

Methode 1 zal vervelend zijn als u de leeftijd van meerdere of alle contacten wilt krijgen. Lees dus verder om Methode 2 te gebruiken.

Methode 2: Krijg snel de leeftijd van alle Outlook-contacten

1. Ga eerst naar het deelvenster Contacten en klik op de knop "Instellingen bekijken" op het tabblad "Bekijken".
2. Klik in het nieuwe dialoogvenster "Geavanceerde weergave-instellingen" op de knop "Kolommen".
3. Druk vervolgens in het dialoogvenster "Kolommen weergeven" op de knop "Nieuwe kolom". Typ in het dialoogvenster "Nieuwe kolom" "Leeftijd" in het vak "Naam" en klik vervolgens op "OK".
4. Klik daarna op een reeks "OK" om terug te gaan naar het hoofdvenster van Outlook.
5. Druk vervolgens op "Alt + F11" om het venster "Visual Basic" te openen en kopieer de volgende codes naar een nieuwe module.

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. Later kunt u de nieuwe macro toevoegen aan de werkbalk Snelle toegang.
7. Selecteer uiteindelijk alle contacten met "Ctrl + A" en druk op de macroknop in de werkbalk Snelle toegang. U krijgt de leeftijd van alle contacten, behalve degenen die geen verjaardagen hebben ingevuld, zoals op de onderstaande afbeelding:

Pas op voor risico's rond uw Outlook-gegevens

Outlook is gevoelig voor corruptie. Daarom moet u alle gevaren rond uw Outlook-gegevens in de gaten houden. Het zijn meestal virussen, malware, stroomuitval en menselijke fouten enz. Bovendien zorgen ze ervoor dat u snel kunt herstel Outlook PST-gegevenscorruptie, je kunt maar beter een ervaren reparatietool in de buurt houden, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel beschadigd SQL-bestand en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com