2 raske metoder for å få Outlook-kontaktens alder

Noen ganger kan det være lurt å telle Outlook-kontaktenes alder. Men Outlook har ikke denne funksjonen, og manuell telling vil være utsatt for feil. Derfor vil denne artikkelen introdusere deg 2 raske tilnærminger via Outlook VBA.

Når du oppretter nye Outlook-kontakter, kan du legge inn kontaktenes bursdager. Da vil Outlook automatisk opprette de tilsvarende gjentakende bursdagshendelsene i kalenderen din. Så når noens bursdag kommer, vil du motta en påminnelse. På dette tidspunktet bør du vite kontaktens alder. Men Outlook har ikke en innebygd funksjon for å telle kontaktens alder. Heldigvis kan vi bruke Outlook VBA for å få det til med største enkelhet.

Metode 1: Få en spesifikk Outlook-kontakts alder

1. For å starte, start Outlook og trykk på "Alt + F11"-tastene.
2. Så i det nye "Microsoft Visual Basic for Applications"-vinduet, bør du åpne en ny modul og kopiere følgende VBA-koder inn i den.

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. Deretter kan du gå ut av det gjeldende vinduet og legge til den nye makroen til hurtigtilgangsverktøylinjen som vanlig.
4. Etter det kan du få tilgang til mappen Kontakter og velge den spesifikke kontakten og trykke på makroknappen i hurtigtilgangsverktøylinjen.
5. Til slutt kan du få følgende resultater:

• Hvis du ikke har lagt inn kontaktens fødselsdager, vil du motta et varsel som følgende bilde:
• Hvis du har lagt inn kontaktens fødselsdag, får du en dialogboks som forteller deg kontaktalderen, som bildet nedenfor:

Metode 1 vil være kjedelig hvis du ønsker å få flere eller alle kontaktenes alder. Les derfor videre for å bruke metode 2.

Metode 2: Få raskt alle Outlook-kontakters alder

1. Først går du til kontaktruten og trykker på "Vis innstillinger" -knappen på "Vis" -fanen.
2. I den nye dialogboksen "Avanserte visningsinnstillinger" trykker du på "Kolonner" -knappen.
3. Så i "Vis kolonner"-dialogboksen, trykk "Ny kolonne"-knappen. I dialogboksen "Ny kolonne", skriv inn "Alder" i "Navn"-boksen og trykk deretter "OK".
4. Etter det klikker du på en rekke "OK" for å gå tilbake til hovedvinduet i Outlook.
5. Trykk deretter "Alt + F11" for å åpne "Visual Basic"-vinduet og kopier følgende koder inn i en ny 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 legge til den nye makroen til hurtigtilgangsverktøylinjen.
7. Velg til slutt alle kontaktene med "Ctrl + A" og trykk på makroknappen i hurtigtilgangsverktøylinjen. Du vil få alle kontaktenes alder, bortsett fra de som ikke har fylt bursdager, som bildet nedenfor:

Vær oppmerksom på risikoer rundt Outlook-dataene dine

Outlook er utsatt for korrupsjon. Derfor bør du holde oversikt over alle farer rundt Outlook-dataene dine. De er vanligvis virus, skadelig programvare, strømbrudd og menneskelige feil osv. Dessuten for å sikre at du raskt kan reparere Outlook PST-datakorrupsjon, bør du ha et erfarent reparasjonsverktøy i nærheten, som DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere ødelagt SQL-fil og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med