2 metode rapide pentru a obține vârsta contactului dvs. Outlook

Uneori, poate doriți să numărați vârsta persoanelor de contact din Outlook. Dar Outlook nu are această funcție și numărarea manuală va fi predispusă la erori. Astfel, acest articol vă va prezenta 2 abordări rapide prin Outlook VBA.

Când creați noi contacte Outlook, puteți introduce zilele de naștere ale contactelor. Apoi, Outlook va crea automat evenimentele de naștere recurente corespunzătoare în calendarul dvs. Așadar, atunci când vine ziua de naștere a cuiva, veți primi o reamintire. În acest moment, trebuie să știți vârsta contactului. Dar Outlook nu are o funcție nativă pentru a calcula vârsta contactului. Din fericire, putem utiliza Outlook VBA pentru a obține acest lucru cu maximă ușurință.

Metoda 1: Obțineți vârsta unui anumit contact Outlook

1. Pentru început, lansați Outlook și apăsați tastele „Alt + F11”.
2. Apoi, în noua fereastră „Microsoft Visual Basic for Applications”, ar trebui să deschideți un nou modul și să copiați următoarele coduri VBA în el.

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. Ulterior, puteți ieși din fereastra curentă și puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid, ca de obicei.
4. După aceea, puteți accesa folderul Contacte și selectați contactul specific și apăsați butonul macro din bara de instrumente Acces rapid.
5. În cele din urmă, puteți obține următoarele rezultate:

• Dacă nu ați introdus zilele de naștere ale persoanei de contact, veți primi o alertă precum următoarea imagine:
• Dacă ați introdus ziua de naștere a persoanei de contact, veți primi o casetă de dialog care vă va spune vârsta contactului, ca în imaginea de mai jos:

Metoda 1 va fi plictisitoare dacă doriți să obțineți vârsta mai multor persoane sau a tuturor persoanelor de contact. Prin urmare, vă rugăm să citiți mai departe pentru a utiliza Metoda 2.

Metoda 2: Obțineți rapid vârsta tuturor persoanelor de contact din Outlook

1. La început, accesați panoul Contacte și apăsați butonul „Vizualizare setări” din fila „Vizualizare”.
2. În noua casetă de dialog „Setări avansate de vizualizare”, apăsați butonul „Coloane”.
3. Apoi, în caseta de dialog „Afișare coloane”, apăsați butonul „Coloană nouă”. În dialogul „Coloană nouă”, tastați „Vârsta” în caseta „Nume” și apoi apăsați „OK”.
4. După aceea, faceți clic pe o serie de „OK” pentru a reveni la fereastra principală a Outlook.
5. Ulterior, apăsați „Alt + F11” pentru a deschide fereastra „Visual Basic” și copiați următoarele coduri într-un modul nou.

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. Mai târziu, puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid.
7. În cele din urmă, selectați toate contactele prin „Ctrl + A” și apăsați butonul macro din Bara de instrumente Acces rapid. Veți primi vârsta tuturor contactelor, cu excepția celor care nu au zile de naștere completate, ca în imaginea de mai jos:

Atenție la riscurile legate de datele dvs. Outlook

Outlook este predispus la corupție. Prin urmare, ar trebui să urmăriți toate pericolele din jurul datelor dvs. Outlook. De obicei, acestea sunt viruși, programe malware, întreruperi de curent și erori umane etc. Mai mult, pentru a vă asigura că puteți rapid reparați corupția datelor Outlook PST, ar fi bine să păstrați un instrument de reparații cu experiență în apropiere, de exemplu DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați fișierul SQL corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com