2 hurtige metoder til at få din Outlook-kontaktpersons alder

Nogle gange vil du muligvis tælle dine Outlook-kontaktpersoners alder. Men Outlook har ikke denne funktion, og manuel tælling vil være udsat for fejl. Således introducerer denne artikel dig 2 hurtige tilgange via Outlook VBA.

Når du opretter nye Outlook-kontakter, kan du indtaste kontakternes fødselsdage. Så vil Outlook automatisk oprette de tilsvarende tilbagevendende fødselsdagsbegivenheder i din kalender. Så når en persons fødselsdag kommer, vil du modtage en påmindelse. På dette tidspunkt skal du gerne kende kontaktens alder. Men Outlook har ikke en indbygget funktion til at tælle kontaktens alder. Heldigvis kan vi bruge Outlook VBA til at få det gjort med største lethed.

Metode 1: Få en bestemt Outlook-kontaktpersons alder

1. For at starte skal du åbne Outlook og trykke på tasterne "Alt + F11".
2. Derefter i det nye “Microsoft Visual Basic for Applications” -vindue, skal du åbne et nyt modul og kopiere følgende VBA-koder til det.

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. Derefter kan du forlade det aktuelle vindue og tilføje den nye makro til værktøjslinjen Hurtig adgang som normalt.
4. Derefter kan du få adgang til din kontaktmappe og vælge den specifikke kontakt og trykke på makroknappen i værktøjslinjen Hurtig adgang.
5. Endelig kan du få følgende resultater:

• Hvis du ikke har indtastet kontaktens fødselsdage, modtager du en advarsel som følgende billede:
• Hvis du har indtastet kontaktens fødselsdag, får du en dialogboks, der fortæller dig kontaktalderen, som billedet nedenfor:

Metode 1 vil være kedelig, hvis du ønsker at få flere eller alle dine kontakters alder. Læs derfor videre for at bruge metode 2.

Metode 2: Hent hurtigt alle Outlook-kontaktpersons alder

1. Først skal du gå til ruden Kontakter og trykke på knappen "Vis indstillinger" på fanen "Vis".
2. I den nye dialogboks "Avancerede visningsindstillinger" skal du trykke på knappen "Kolonner".
3. Tryk derefter på knappen "Ny kolonne" i dialogboksen "Vis kolonner". I dialogboksen "Ny kolonne" skal du skrive "Alder" i feltet "Navn" og derefter trykke på "OK".
4. Klik derefter på en række "OK" for at gå tilbage til hovedvinduet i Outlook.
5. Tryk derefter på "Alt + F11" for at åbne "Visual Basic" -vinduet og kopiere følgende koder til et nyt modul.

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. Senere kan du tilføje den nye makro til værktøjslinjen Hurtig adgang.
7. Til sidst skal du vælge alle kontakterne ved hjælp af "Ctrl + A" og trykke på makroknappen i værktøjslinjen Hurtig adgang. Du får alle kontakternes alder undtagen dem, der ikke har nogen fødselsdage, som billedet nedenfor:

Pas på risici omkring dine Outlook-data

Outlook er udsat for korruption. Derfor skal du holde øje med alle farer omkring dine Outlook-data. De er normalt vira, malware, strømafbrydelser og menneskelige fejl osv. Desuden for at sikre, at du hurtigt kan reparere korruption af Outlook PST-data, skal du hellere have et erfaren reparationsværktøj i nærheden, ligesom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparere beskadiget SQL-fil og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com