2 ātras metodes, kā iegūt sava Outlook kontakta vecumu

Dažreiz ieteicams uzskaitīt savu Outlook kontaktpersonu vecumu. Bet Outlook nav šīs funkcijas, un manuāla skaitīšana būs iespējama kļūdām. Tādējādi šajā rakstā jūs iepazīstināsiet ar divām ātrām pieejām, izmantojot Outlook VBA.

Veidojot jaunus Outlook kontaktus, varat ievadīt kontaktu dzimšanas dienas. Pēc tam Outlook automātiski izveidos atbilstošus periodiskus dzimšanas dienu notikumus jūsu kalendārā. Tātad, kad pienāks kāda dzimšanas diena, jūs saņemsiet atgādinājumu. Šajā brīdī jums ir jāzina kontakta vecums. Taču Outlook nav iebūvētas funkcijas, lai aprēķinātu kontakta vecumu. Par laimi, mēs varam izmantot Outlook VBA, lai to iegūtu ar vislielāko vieglumu.

1. metode: iegūstiet noteiktu Outlook kontaktpersonas vecumu

1. Lai sāktu, palaidiet programmu Outlook un nospiediet taustiņu kombināciju “Alt + F11”.
2. Pēc tam jaunajā “Microsoft Visual Basic for Applications” logā jums vajadzētu atvērt jaunu moduli un tajā iekopēt šādus VBA kodus.

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. Pēc tam jūs varat iziet no pašreizējā loga un pievienot jaunu makro ātrās piekļuves rīkjoslai kā parasti.
4. Pēc tam jūs varat piekļūt mapei Kontakti un atlasīt konkrēto kontaktu un ātrās piekļuves rīkjoslā nospiediet makro pogu.
5. Visbeidzot, jūs varat iegūt šādus rezultātus:

• Ja neesat ievadījis kontaktpersonas dzimšanas dienas, jūs saņemsit brīdinājumu, piemēram, šo attēlu:
• Ja esat ievadījis kontaktpersonas dzimšanas dienu, tiks parādīts dialoglodziņš, kurā būs norādīts kontakta vecums, piemēram, zemāk redzamais attēls:

1. metode būs garlaicīga, ja vēlaties iegūt vairāku vai visu savu kontaktu vecumu. Tāpēc, lūdzu, lasiet tālāk, lai izmantotu 2. metodi.

2. metode: ātri iegūstiet visu Outlook kontaktpersonu vecumu

1. Sākumā dodieties uz Kontaktpersonu rūti un cilnē “Skatīt” nospiediet pogu “Skatīt iestatījumus”.
2. Jaunajā dialoglodziņā “Papildu skata iestatījumi” nospiediet pogu “Kolonnas”.
3. Pēc tam dialoglodziņā “Rādīt kolonnas” nospiediet pogu “Jauna kolonna”. Dialoglodziņā “Jauna kolonna” lodziņā “Nosaukums” ierakstiet “Vecums” un pēc tam nospiediet “Labi”.
4. Pēc tam noklikšķiniet uz virknes “OK”, lai atgrieztos galvenajā Outlook logā.
5. Pēc tam nospiediet taustiņu “Alt + F11”, lai atvērtu logu “Visual Basic”, un šādus kodus nokopējiet jaunā modulī.

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. Vēlāk jauno makro varat pievienot ātrās piekļuves rīkjoslai.
7. Galu galā atlasiet visus kontaktus, nospiežot “Ctrl + A”, un ātrās piekļuves rīkjoslā nospiediet makro pogu. Jūs saņemsiet visu kontaktu vecumu, izņemot tos, kuriem nav aizpildītas dzimšanas dienas, piemēram, attēls zemāk:

Sargieties no riskiem, kas saistīti ar jūsu Outlook datiem

Outlook ir pakļauta korupcijai. Tāpēc jums vajadzētu saglabāt cilnes par visām briesmām ap jūsu Outlook datiem. Tie parasti ir vīrusi, ļaunprātīga programmatūra, strāvas padeves pārtraukumi un cilvēku kļūdas utt. Turklāt, lai nodrošinātu ātru ātrumu labot Outlook PST datu korupciju, labāk turēt pieredzējušu remonta rīku tuvumā, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot bojātu SQL failu un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar