2 rychlé metody, jak zjistit věk kontaktu z aplikace Outlook

Někdy můžete chtít spočítat věk kontaktů aplikace Outlook. Ale Outlook tuto funkci nemá a ruční počítání bude náchylné k chybám. Tento článek vám proto představí 2 rychlé přístupy prostřednictvím aplikace Outlook VBA.

Při vytváření nových kontaktů v Outlooku můžete zadat data narození kontaktů. Outlook poté automaticky vytvoří odpovídající opakující se události narozenin ve vašem kalendáři. Takže když někdo slaví narozeniny, dostanete připomenutí. V tomto okamžiku byste měli chtít znát věk kontaktu. Outlook ale nemá nativní funkci pro počítání věku kontaktu. Naštěstí k jeho snadnému zjištění můžeme použít Outlook VBA.

Metoda 1: Získat stáří konkrétního kontaktu aplikace Outlook

1. Nejprve spusťte Outlook a stiskněte klávesy „Alt + F11“.
2. Poté v novém okně „Microsoft Visual Basic for Applications“ byste měli otevřít nový modul a zkopírovat do něj následující 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ásledně můžete opustit aktuální okno a přidat nové makro na panel nástrojů Rychlý přístup jako obvykle.
4. Poté můžete vstoupit do složky Kontakty a vybrat konkrétní kontakt a stisknout tlačítko makra na panelu nástrojů Rychlý přístup.
5. Nakonec můžete získat následující výsledky:

• Pokud jste nezadali narozeniny kontaktu, obdržíte upozornění jako na následujícím obrázku:
• Pokud jste zadali datum narození kontaktu, zobrazí se dialogové okno, které vám sdělí věk kontaktu, jako na obrázku níže:

Metoda 1 bude únavná, pokud chcete získat věk několika nebo všech svých kontaktů. Proto prosím čtěte dále, abyste mohli použít metodu 2.

Metoda 2: Rychle získat stáří všech kontaktů aplikace Outlook

1. Nejprve přejděte do podokna Kontakty a stiskněte tlačítko „Zobrazit nastavení“ na kartě „Zobrazit“.
2. V novém dialogovém okně „Advanced View Settings“ stiskněte tlačítko „Columns“.
3. Poté v dialogovém okně „Zobrazit sloupce“ stiskněte tlačítko „Nový sloupec“. V dialogovém okně „Nový sloupec“ zadejte „Věk“ do pole „Jméno“ a poté stiskněte „OK“.
4. Poté klikněte na řadu „OK“ pro návrat do hlavního okna aplikace Outlook.
5. Následně stiskněte „Alt + F11“ pro otevření okna „Visual Basic“ a zkopírujte následující 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. Později můžete nové makro přidat na panel nástrojů Rychlý přístup.
7. Nakonec vyberte všechny kontakty pomocí „Ctrl + A“ a stiskněte makro na panelu nástrojů Rychlý přístup. Dostanete věk všech kontaktů, kromě těch, kteří nemají vyplněné datum narození, jako je obrázek níže:

Dejte si pozor na rizika spojená s daty aplikace Outlook

Outlook je náchylný ke korupci. Proto byste měli mít přehled o všech nebezpečích kolem dat aplikace Outlook. Jsou to obvykle viry, malware, výpadky proudu a lidské chyby atd. Navíc tak, aby bylo zajištěno, že můžete rychle opravit poškození dat PST aplikace Outlook, raději mějte v blízkosti zkušeného opraváře, např DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit poškozený SQL soubor a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com