Ձեր Outlook- ի կոնտակտային տարիքը ստանալու համար 2 արագ մեթոդ

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Երբեմն գուցե ցանկանաք հաշվել ձեր Outlook կոնտակտների տարիքը: Բայց Outlook- ը չունի այս գործառույթը, և ձեռքով հաշվելը հակված կլինի սխալների: Այսպիսով, այս հոդվածը ձեզ կներկայացնի 2 արագ մոտեցում Outlook VBA- ի միջոցով:

Outlook-ում նոր կոնտակտներ ստեղծելիս կարող եք մուտքագրել կոնտակտների ծննդյան օրերը։ Այնուհետև Outlook-ը ձեր օրացույցում ավտոմատ կերպով կստեղծի համապատասխան կրկնվող ծննդյան օրերը։ Այսպիսով, երբ որևէ մեկի ծննդյան օրը գա, դուք կստանաք հիշեցում։ Այս պահին դուք պետք է իմանաք կոնտակտի տարիքը։ Սակայն Outlook-ը չունի կոնտակտի տարիքը հաշվելու բնօրինակ գործառույթ։ Բարեբախտաբար, մենք կարող ենք օգտագործել Outlook VBA-ն՝ այն առավելագույնս հեշտությամբ ստանալու համար։

Մեթոդ 1. Ստացեք հատուկ Outlook- ի կոնտակտային տարիքը

  1. Սկսելու համար բացեք Outlook-ը և սեղմեք Alt + F11 ստեղները։
  2. Այնուհետև նոր «Microsoft Visual Basic հավելվածների համար» պատուհանում պետք է բացեք նոր մոդուլ և դրա մեջ պատճենեք հետևյալ VBA կոդերը:
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

VBA կոդեր. Հաշվեք որոշակի Outlook- ի կոնտակտային տարիքը

  1. Դրանից հետո կարող եք դուրս գալ ընթացիկ պատուհանից և սովորության համաձայն ավելացնել նոր մակրո-ն Արագ մուտքի գործիքագոտում:
  2. Դրանից հետո դուք կարող եք մուտք գործել ձեր Կոնտակտների պանակ և ընտրել կոնկրետ կոնտակտը և սեղմել մակրո կոճակը Արագ մուտքի գործիքագոտում:
  3. Վերջապես կարող եք ստանալ հետևյալ արդյունքները.
  • Եթե ​​չեք մուտքագրել կոնտակտի ծննդյան օրը, դուք կստանաք նախազգուշացում հետևյալ պատկերի նման.Outlook ահազանգ
  • Եթե ​​մուտքագրեք կոնտակտի ծննդյան օրը, դուք կստանաք երկխոսության պատուհան, որը կպատմի ձեզ կոնտակտային տարիքը, ինչպես ստորև նկարը.Հաշվեք կոնտակտային տարիքը

1-ին մեթոդը հոգնեցուցիչ կլինի, եթե ցանկանում եք ստանալ ձեր կոնտակտների մի քանի կամ բոլոր տարիքը: Այսպիսով, կարդացեք, որպեսզի օգտագործեք 2-րդ մեթոդը:

Մեթոդ 2. Արագ ստացեք Outlook- ի բոլոր կոնտակտների տարիքը

  1. Սկզբում անցեք Կոնտակտների վահանակ և սեղմեք «Դիտել» ներդիրի «Դիտել պարամետրերը» կոճակը:
  2. Նոր «Ընդլայնված դիտման պարամետրեր» երկխոսության դաշտում սեղմեք «Սյունակներ» կոճակը:
  3. Դրանից հետո «Colուցադրել սյունակները» երկխոսության դաշտում սեղմել «Նոր սյունակ» կոճակը: «Նոր սյունակ» երկխոսությունում «Անուն» վանդակում մուտքագրեք «Տարիք» և այնուհետև սեղմեք «Լավ»:Ավելացնել Տարիքային սյունակ
  4. Դրանից հետո կտտացրեք մի շարք «OK» ՝ Outlook- ի հիմնական պատուհանը վերադառնալու համար:
  5. Դրանից հետո, սեղմեք «Alt + F11», որպեսզի բացվի «Visual Basic» պատուհանը և պատճենեք հետևյալ կոդերը նոր մոդուլի մեջ:
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

VBA կոդեր - Արագ ստացեք Outlook- ի բոլոր կոնտակտների տարիքը

  1. Ավելի ուշ կարող եք ավելացնել նոր մակրո-ն Արագ մուտքի գործիքագոտում:
  2. Ի վերջո ընտրեք բոլոր կոնտակտները «Ctrl + A» - ով և սեղմեք մակրո կոճակը Արագ մուտքի գործիքագոտում: Դուք կստանաք բոլոր կոնտակտների տարիքը, բացառությամբ նրանց, ովքեր լրացված չեն ծննդյան օրը, ինչպես ստորև նկարն է.Ստացեք բոլոր կոնտակտների տարիքը

Outգուշացեք ձեր Outlook- ի տվյալների շուրջ առկա ռիսկերից

Հեռանկարները հակված են կոռուպցիայի: Հետեւաբար, դուք պետք է պահեք ներդիրները ձեր Outlook- ի տվյալների շուրջ առկա բոլոր վտանգների վերաբերյալ: Սովորաբար դրանք վիրուսներ են, չարամիտ ծրագրեր, էլեկտրամատակարարման ընդհատումներ և մարդկային սխալներ և այլն: Ավելին, որպեսզի հնարավոր լինի արագորեն ապահովել վերականգնել Outlook PST տվյալների կոռուպցիան, ավելի լավ է մոտակայքում պահեք փորձառու վերանորոգման գործիք, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել կոռումպացված SQL ֆայլը և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: