2 hitri metodi za ugotavljanje starosti vašega Outlookovega stika

Včasih boste morda želeli prešteti starost Outlookovih stikov. Toda Outlook nima te funkcije in ročno štetje bo nagnjeno k napakam. Tako vam bo ta članek predstavil 2 hitra pristopa prek Outlooka VBA.

Ko ustvarjate nove stike v Outlooku, lahko vnesete rojstne dneve stikov. Outlook bo nato v vašem koledarju samodejno ustvaril ustrezne ponavljajoče se dogodke rojstnih dni. Ko bo torej kdo imel rojstni dan, boste prejeli opomnik. Na tej točki zagotovo želite vedeti starost stika. Vendar Outlook nima vgrajene funkcije za štetje starosti stika. Na srečo lahko za to z veliko lahkoto uporabimo Outlook VBA.

1. način: pridobite določeno starost Outlookovega stika

1. Za začetek zaženite Outlook in pritisnite tipki »Alt + F11«.
2. Nato v novem oknu »Microsoft Visual Basic for Applications« odprite nov modul in vanj kopirajte naslednje kode 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. Nato lahko zapustite trenutno okno in dodate nov makro v orodno vrstico za hitri dostop kot običajno.
4. Po tem lahko dostopate do mape s stiki, izberete določen stik in pritisnete gumb za makro v orodni vrstici za hitri dostop.
5. Končno lahko dobite naslednje rezultate:

• Če niste vnesli rojstnih dni stika, boste prejeli opozorilo, podobno naslednji sliki:
• Če ste vnesli rojstni dan stika, se prikaže pogovorno okno, ki vam bo povedalo starost stika, kot je prikazano na spodnji sliki:

1. način bo dolgočasen, če želite določiti starost več ali vseh svojih stikov. Zato preberite, če želite uporabiti 2. metodo.

2. način: Hitro pridobite starost vseh Outlookovih stikov

1. Najprej pojdite v podokno s stiki in pritisnite gumb »Nastavitve pogleda« na zavihku »Pogled«.
2. V novem pogovornem oknu »Napredne nastavitve pogleda« pritisnite gumb »Stolpci«.
3. Nato v pogovornem oknu »Prikaži stolpce« pritisnite gumb »Nov stolpec«. V pogovornem oknu »Nov stolpec« vnesite »Starost« v polje »Ime« in pritisnite »V redu«.
4. Po tem kliknite vrsto »V redu«, da se vrnete v glavno okno programa Outlook.
5. Nato pritisnite »Alt + F11«, da odprete okno »Visual Basic« in kopirajte naslednje kode v nov 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. Pozneje lahko dodate nov makro v orodno vrstico za hitri dostop.
7. Sčasoma izberite vse stike s »Ctrl + A« in pritisnite gumb za makro v orodni vrstici za hitri dostop. Dobili boste starost vseh stikov, razen tistih, ki nimajo izpolnjenih rojstnih dni, kot je spodnja slika:

Pazite se tveganj v zvezi s svojimi Outlookovimi podatki

Outlook je nagnjen k korupciji. Zato morate spremljati vse nevarnosti v zvezi s svojimi Outlookovimi podatki. Običajno so to virusi, zlonamerna programska oprema, izpadi električne energije in človeške napake itd. Poleg tega, da zagotovite, da lahko hitro popravite poškodovane podatke Outlook PST, bolje imejte v bližini izkušeno orodje za popravilo, npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravi poškodovano datoteko SQL in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com