2 Metoda të shpejta për të marrë moshën e kontaktit tuaj në Outlook

Ndonjëherë, mund të dëshironi të numëroni moshën e kontakteve tuaja në Outlook. Por Outlook nuk e ka këtë funksion dhe numërimi manual do të jetë i prirur për gabime. Kështu, ky artikull do t'ju prezantojë 2 qasje të shpejta përmes Outlook VBA.

Kur krijoni kontakte të reja në Outlook, mund të futni ditëlindjet e kontakteve. Pastaj Outlook do të krijojë automatikisht ngjarjet përkatëse të ditëlindjeve në kalendarin tuaj. Pra, kur të vijë ditëlindja e dikujt, do të merrni një kujtesë. Në këtë pikë, duhet të dëshironi të dini moshën e kontaktit. Por Outlook nuk ka një veçori të brendshme për të numëruar moshën e kontaktit. Për fat të mirë, ne mund ta përdorim Outlook VBA për ta marrë atë me lehtësinë më të madhe.

Metoda 1: Merrni një moshë specifike të kontaktit të Outlook

1. Për të filluar, hapni Outlook dhe shtypni tastet "Alt + F11".
2. Pastaj në dritaren e re "Microsoft Visual Basic për Aplikime", duhet të hapni një modul të ri dhe të kopjoni kodet e mëposhtme VBA në të.

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. Më pas, mund të dilni nga dritarja aktuale dhe të shtoni makro të re në shiritin e veglave të aksesit të shpejtë si zakonisht.
4. Pas kësaj, mund të hyni në dosjen tuaj të Kontakteve dhe të zgjidhni kontaktin specifik dhe të shtypni butonin makro në shiritin e veglave të aksesit të shpejtë.
5. Më në fund mund të merrni rezultatet e mëposhtme:

• Nëse nuk i keni futur ditëlindjet e kontaktit, do të merrni një sinjalizim si imazhi i mëposhtëm:
• Nëse keni futur ditëlindjen e kontaktit, do të merrni një kuti dialogu që do t'ju tregojë moshën e kontaktit, si imazhi më poshtë:

Metoda 1 do të jetë e lodhshme nëse doni të arrini moshën e disa ose të gjitha kontakteve tuaja. Prandaj, ju lutemi lexoni për të përdorur metodën 2.

Metoda 2: Merrni shpejt moshën e të gjitha kontakteve të Outlook

1. Fillimisht, shkoni te paneli i Kontakteve dhe shtypni butonin "Shiko cilësimet" në skedën "Shiko".
2. Në kutinë e re të dialogut "Cilësimet e pamjes së avancuar", shtypni butonin "Kollonat".
3. Më pas në kutinë e dialogut "Trego kolonat", shtypni butonin "Kollona e re". Në dialogun "Kollona e re", shkruani "Mosha" në kutinë "Emri" dhe më pas shtypni "OK".
4. Pas kësaj, klikoni një seri "OK" për t'u kthyer në dritaren kryesore të Outlook.
5. Më pas, shtypni "Alt + F11" për të hapur dritaren "Visual Basic" dhe kopjoni kodet e mëposhtme në një modul të ri.

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. Më vonë mund të shtoni makro të re në shiritin e veglave të aksesit të shpejtë.
7. Përfundimisht zgjidhni të gjitha kontaktet me "Ctrl + A" dhe shtypni butonin makro në shiritin e veglave të aksesit të shpejtë. Do të merrni të gjithë moshën e kontakteve, përveç atyre që nuk kanë ditëlindje të mbushura, si fotoja më poshtë:

Kujdes nga rreziqet rreth të dhënave tuaja të Outlook

Outlook është i prirur për korrupsion. Prandaj, duhet të mbani shënime për të gjitha rreziqet rreth të dhënave tuaja të Outlook. Ato janë zakonisht viruse, malware, ndërprerje të energjisë elektrike dhe gabime njerëzore, etj. Për më tepër, në mënyrë që të siguroheni që ju të mund të shpejt riparimi i korrupsionit të të dhënave të Outlook PST, do të mbani më mirë një mjet riparimi me përvojë në afërsi, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i skedarit SQL të dëmtuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com