2 brza metoda da saznate starost vašeg Outlook kontakta

Ponekad ćete možda želeti da prebrojite starost svojih Outlook kontakata. Ali Outlook nema ovu funkciju i ručno brojanje će biti sklono greškama. Stoga će vam ovaj članak predstaviti 2 brza pristupa putem Outlook VBA.

Prilikom kreiranja novih Outlook kontakata, možete unijeti rođendane kontakata. Outlook će automatski kreirati odgovarajuće ponavljajuće rođendane u vašem kalendaru. Dakle, kada dođe nečiji rođendan, dobit ćete podsjetnik. U ovom trenutku sigurno želite znati godine kontakta. Ali Outlook nema izvornu funkciju za brojanje godina kontakta. Srećom, možemo koristiti Outlook VBA da to dobijemo s najvećom lakoćom.

Metoda 1: Dobijte starost određenog Outlook kontakta

1. Za početak, pokrenite Outlook i pritisnite tipke "Alt + F11".
2. Zatim u novom prozoru „Microsoft Visual Basic za aplikacije“, trebalo bi da otvorite novi modul i kopirate sledeće VBA kodove u njega.

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. Nakon toga, možete izaći iz trenutnog prozora i dodati novi makro na traku sa alatkama za brzi pristup kao i obično.
4. Nakon toga, možete pristupiti fascikli sa kontaktima i odabrati određeni kontakt i pritisnuti makro dugme na traci sa alatkama za brzi pristup.
5. Na kraju možete dobiti sljedeće rezultate:

• Ako niste unijeli rođendane kontakta, dobit ćete upozorenje poput sljedeće slike:
• Ako ste uneli rođendan kontakta, dobićete dijaloški okvir koji će vam reći starost kontakta, kao na slici ispod:

Metoda 1 će biti zamorna ako želite da dobijete starost nekoliko ili svih svojih kontakata. Stoga vas molimo da pročitate dalje kako biste koristili metodu 2.

Metoda 2: Brzo saznajte starost svih Outlook kontakata

1. Prvo idite na okno za kontakte i pritisnite dugme „Postavke prikaza“ na kartici „Pregled“.
2. U novom dijaloškom okviru "Napredne postavke prikaza" pritisnite dugme "Kolone".
3. Zatim u dijaloškom okviru „Prikaži kolone“ pritisnite dugme „Nova kolona“. U dijalogu “Nova kolona” upišite “Starost” u polje “Ime”, a zatim pritisnite “OK”.
4. Nakon toga, kliknite niz "OK" da biste se vratili u glavni Outlook prozor.
5. Zatim pritisnite “Alt + F11” da otvorite prozor “Visual Basic” i kopirajte sljedeće kodove u novi 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. Kasnije možete dodati novi makro na traku sa alatkama za brzi pristup.
7. Na kraju odaberite sve kontakte pomoću “Ctrl + A” i pritisnite dugme za makro na traci s alatima za brzi pristup. Dobićete starost svih kontakata, osim onih koji nemaju popunjene rođendane, kao na slici ispod:

Čuvajte se rizika oko vaših Outlook podataka

Outlook je sklon korupciji. Stoga biste trebali voditi računa o svim opasnostima oko vaših Outlook podataka. Obično su to virusi, zlonamjerni softver, nestanci struje i ljudske greške, itd. Štaviše, kako biste osigurali da brzo možete popraviti oštećenje Outlook PST podataka, bolje držite iskusan alat za popravku u blizini, npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećenu SQL datoteku i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com