2 rýchle metódy na zistenie veku kontaktu programu Outlook

Niekedy možno budete chcieť spočítať vek vašich kontaktov v Outlooku. Ale Outlook nemá túto funkciu a ručné počítanie bude náchylné na chyby. Tento článok vám preto predstaví 2 rýchle prístupy prostredníctvom aplikácie Outlook VBA.

Pri vytváraní nových kontaktov v programe Outlook môžete zadať narodeniny kontaktov. Outlook potom automaticky vytvorí v kalendári opakujúce sa narodeniny. Takže keď niekto oslávi narodeniny, dostanete pripomienku. V tomto bode by ste mali chcieť poznať vek kontaktu. Outlook však nemá natívnu funkciu na počítanie veku kontaktu. Našťastie môžeme na jeho získanie použiť Outlook VBA.

Metóda 1: Získanie konkrétneho veku kontaktu programu Outlook

1. Najprv spustite Outlook a stlačte klávesy „Alt + F11“.
2. V novom okne „Microsoft Visual Basic for Applications“ by ste mali otvoriť nový modul a skopírovať doň nasledujúce kódy 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

3. Následne môžete opustiť aktuálne okno a pridať nové makro na panel nástrojov Rýchly prístup ako obvykle.
4. Potom môžete prejsť do priečinka Kontakty, vybrať konkrétny kontakt a stlačiť tlačidlo makra na paneli s nástrojmi Rýchly prístup.
5. Nakoniec môžete získať nasledujúce výsledky:

• Ak ste nezadali narodeniny kontaktu, dostanete upozornenie ako na nasledujúcom obrázku:
• Ak zadáte dátum narodenia kontaktu, zobrazí sa dialógové okno s informáciou o veku kontaktu, napríklad na obrázku nižšie:

Metóda 1 bude únavná, ak chcete dosiahnuť vek niekoľkých alebo všetkých svojich kontaktov. Preto prosím čítajte ďalej, aby ste mohli používať metódu 2.

Metóda 2: Rýchle získanie veku všetkých kontaktov programu Outlook

1. Najskôr prejdite na tablu Kontakty a stlačte tlačidlo „Zobraziť nastavenia“ na karte „Zobraziť“.
2. V novom dialógovom okne „Rozšírené nastavenia zobrazenia“ stlačte tlačidlo „Stĺpce“.
3. Potom v dialógovom okne „Zobraziť stĺpce“ stlačte tlačidlo „Nový stĺpec“. V dialógovom okne „Nový stĺpec“ zadajte do poľa „Meno“ „Vek“ a potom stlačte „OK“.
4. Potom kliknite na sériu výrazov „OK“ a vráťte sa do hlavného okna programu Outlook.
5. Následne stlačte „Alt + F11“, aby ste otvorili okno „Visual Basic“ a skopírovali nasledujúce kódy do nového modulu.

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. Neskôr môžete nové makro pridať na panel s nástrojmi Rýchly prístup.
7. Nakoniec vyberte všetky kontakty klávesou „Ctrl + A“ a stlačte tlačidlo makra na paneli s nástrojmi Rýchly prístup. Získate vek všetkých kontaktov, okrem tých, ktorí nemajú vyplnené žiadne narodeniny, ako na obrázku nižšie:

Dajte si pozor na riziká spojené s vašimi údajmi z Outlooku

Výhľad je náchylný na korupciu. Preto by ste mali mať prehľad o všetkých nebezpečenstvách okolo údajov z Outlooku. Obvykle sú to vírusy, malware, výpadky napájania a ľudské chyby, atď. Navyše, aby ste sa rýchlo postarali opraviť poškodenie údajov programu Outlook PST, mali by ste mať v blízkosti skúsený nástroj na opravu, napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodený súbor SQL a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S