2 greiti būdai sužinoti savo Outlook kontakto amžių

Kartais galbūt norėsite suskaičiuoti savo „Outlook“ kontaktų amžių. Tačiau „Outlook“ neturi šios funkcijos ir rankiniu būdu skaičiuojant bus klaidų. Taigi šiame straipsnyje bus pristatyti 2 greiti metodai naudojant „Outlook VBA“.

Kurdami naujus „Outlook“ kontaktus, galite įvesti kontaktų gimtadienius. Tada „Outlook“ automatiškai sukurs atitinkamus pasikartojančius gimtadienių įvykius jūsų kalendoriuje. Taigi, kai ateis kieno nors gimtadienis, gausite priminimą. Šiuo metu turėtumėte žinoti kontakto amžių. Tačiau „Outlook“ neturi įdiegtos funkcijos, kuri skaičiuotų kontakto amžių. Laimei, galime naudoti „Outlook VBA“, kad tai gautume labai lengvai.

1 būdas: gaukite konkretų „Outlook“ kontakto amžių

1. Norėdami pradėti, paleiskite „Outlook“ ir paspauskite klavišų kombinaciją „Alt“ + F11.
2. Tada naujame lange „Microsoft Visual Basic for Applications“ turėtumėte atidaryti naują modulį ir į jį nukopijuoti šiuos VBA kodus.

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. Vėliau galite išeiti iš esamo lango ir kaip įprasta pridėti naują makrokomandą prie greitosios prieigos įrankių juostos.
4. Po to galite pasiekti aplanką Kontaktai, pasirinkti konkretų kontaktą ir paspausti makrokomandos mygtuką greitosios prieigos įrankių juostoje.
5. Galiausiai galite gauti šiuos rezultatus:

• Jei neįvedėte kontakto gimtadienių, gausite įspėjimą, panašų į šį paveikslėlį:
• Jei įvedėte kontakto gimimo datą, gausite dialogo langą, kuriame bus nurodytas kontakto amžius, kaip parodyta paveikslėlyje žemiau:

1 metodas bus varginantis, jei norite gauti kelių ar visų savo kontaktų amžių. Todėl skaitykite toliau, kaip naudoti 2 metodą.

2 būdas: greitai sužinokite visų „Outlook“ kontaktų amžių

1. Pirmiausia eikite į kontaktų sritį ir spustelėkite mygtuką „Peržiūrėti nustatymus“ skirtuke „Peržiūrėti“.
2. Naujame dialogo lange „Išplėstiniai rodinio nustatymai“ paspauskite mygtuką „Stulpeliai“.
3. Tada dialogo lange „Rodyti stulpelius“ paspauskite mygtuką „Naujas stulpelis“. Dialogo lange „Naujas stulpelis“ laukelyje „Vardas“ įveskite „Age“ ir paspauskite „Gerai“.
4. Po to spustelėkite „Gerai“ seriją, kad grįžtumėte į pagrindinį „Outlook“ langą.
5. Tada paspauskite „Alt + F11“, kad atidarytumėte „Visual Basic“ langą ir nukopijuokite šiuos kodus į naują 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. Vėliau naują makrokomandą galėsite įtraukti į greitosios prieigos įrankių juostą.
7. Galų gale pasirinkite visus kontaktus naudodami „Ctrl + A“ ir paspauskite makrokomandos mygtuką greitosios prieigos įrankių juostoje. Jūs gausite visų kontaktų amžių, išskyrus tuos, kuriems nėra gimtadienių, kaip paveikslėlyje žemiau:

Saugokitės rizikos, susijusios su „Outlook“ duomenimis

„Outlook“ yra linkusi į korupciją. Todėl turėtumėte stebėti visus su „Outlook“ duomenimis susijusius pavojus. Paprastai tai yra virusai, kenkėjiškos programos, elektros tiekimo nutraukimai ir žmogaus klaidos ir tt Be to, siekiant užtikrinti, kad galėtumėte greitai pataisyti Outlook PST duomenų sugadinimą, geriau šalia laikyti patyrusį remonto įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sugadintą SQL failą ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com