2 Mabilis na Paraan upang Makakuha ng Edad ng Iyong Pakikipag-ugnay sa Outlook

Minsan, baka gusto mong bilangin ang edad ng iyong mga contact sa Outlook. Ngunit walang pagpapaandar ang Outlook at ang manu-manong pagbibilang ay madaling kapitan ng error. Sa gayon ang artikulong ito ay magpapakilala sa iyo ng 2 mabilis na diskarte sa pamamagitan ng Outlook VBA.

Kapag gumagawa ng mga bagong contact sa Outlook, maaari mong ilagay ang mga kaarawan ng mga contact. Pagkatapos, awtomatikong gagawa ang Outlook ng mga sumusunod na paulit-ulit na kaganapan sa kaarawan sa iyong kalendaryo. Kaya kapag dumating ang kaarawan ng sinuman, makakatanggap ka ng paalala. Sa puntong ito, dapat mong malaman ang edad ng contact. Ngunit ang Outlook ay walang katutubong tampok para bilangin ang edad ng contact. Mabuti na lang at magagamit natin ang Outlook VBA para makuha ito nang may lubos na kadalian.

Paraan 1: Kumuha ng Edad ng Tiyak na Pang-contact ng Outlook

1. Upang magsimula, buksan ang Outlook at pindutin ang mga key na "Alt + F11".
2. Pagkatapos sa bagong window na "Microsoft Visual Basic for Applications", dapat mong buksan ang isang bagong module at kopyahin ang mga sumusunod na VBA code dito.

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. Kasunod, maaari kang lumabas sa kasalukuyang window at idagdag ang bagong macro sa Quick Access Toolbar tulad ng dati.
4. Pagkatapos nito, maaari mong ma-access ang iyong folder ng Mga contact at piliin ang tukoy na contact at pindutin ang pindutan ng macro sa Quick Access Toolbar.
5. Sa wakas maaari kang makakuha ng mga sumusunod na resulta:

• Kung hindi mo na-input ang mga kaarawan ng contact, makakatanggap ka ng isang alerto tulad ng sumusunod na imahe:
• Kung na-input mo ang kaarawan ng contact, makakakuha ka ng isang dialog box na magsasabi sa iyo ng edad ng contact, tulad ng imahe sa ibaba:

Nakakapagod ang Paraan 1 kung nais mong makakuha ng marami o lahat ng edad ng iyong mga contact. Kaya't mangyaring basahin upang magamit ang Paraan 2.

Paraan 2: Mabilis na Kumuha ng Edad ng Lahat ng Mga Outlook Contact

1. Sa una, pumunta sa pane ng Mga contact at pindutin ang pindutang "Tingnan ang Mga Setting" sa tab na "Tingnan".
2. Sa bagong dialog box na "Mga Advanced na View ng Setting", pindutin ang pindutang "Mga Haligi".
3. Pagkatapos sa dialog box na "Ipakita ang Mga Haligi", pindutin ang pindutang "Bagong Haligi". Sa dayalogo ng "Bagong Haligi", i-type ang "Edad" sa kahon na "Pangalan" at pagkatapos ay pindutin ang "OK".
4. Pagkatapos nito, mag-click sa isang serye ng "OK" upang bumalik sa pangunahing window ng Outlook.
5. Kasunod, pindutin ang "Alt + F11" upang buksan ang window na "Visual Basic" at kopyahin ang mga sumusunod na code sa isang bagong module.

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. Sa paglaon maaari mong idagdag ang bagong macro sa Quick Access Toolbar.
7. Sa kalaunan piliin ang lahat ng mga contact sa pamamagitan ng "Ctrl + A" at pindutin ang pindutan ng macro sa Quick Access Toolbar. Makukuha mo ang edad ng lahat ng mga contact, maliban sa mga walang punong kaarawan, tulad ng larawan sa ibaba:

Mag-ingat sa Mga Panganib sa paligid ng Iyong Data ng Outlook

Ang Outlook ay madaling kapitan ng katiwalian. Samakatuwid, dapat mong panatilihin ang mga tab sa lahat ng mga panganib sa paligid ng iyong data sa Outlook. Kadalasan ang mga ito ay mga virus, malware, pagkawala ng kuryente at mga pagkakamali ng tao, atbp. Bukod dito, upang matiyak na maaari mong mabilis ayusin ang katiwalian ng data ng PST ng Outlook, mas mabuti mong panatilihin ang isang nakaranasang tool sa pag-aayos sa paligid, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sira SQL file at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa