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 persoanelor de contact. Apoi Outlook va crea automat evenimentele de naștere recurente corespunzătoare în calendarul dvs. Deci, când vine ziua de naștere a cuiva, vei primi un memento. În acest moment, trebuie să doriți să cunoașteți vârsta contactului. Dar Outlook nu are o funcție nativă pentru a număra vârsta contactului. Din fericire, putem folosi Outlook VBA pentru a-l obține cu utmost uşura.
Metoda 1: Obțineți vârsta unui anumit contact Outlook
- Pentru a starcu, lansați Outlook și apăsați butoanele tastei „Alt + F11”.
- 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 Data Dim Age As Integer Dim strMsg As String Dim nRes As Integer Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1) If TypeName(olContact) = "The Contact IfItem olContact.Birthday <> #1/1/4501# Apoi bDay = DateSerial(Year(Acum), Month(olContact.Birthday), Day(olContact.Birthday)) Age = DateDiff("yyyy", olContact.Birthday, bDay) strMsg = olContact.FullName & " are " & Age & " ani acum." nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Numărarea vârstei contactului") Else strMsg = "Nu ați introdus încă " & olContact.FullName & " ziua de naștere a lui." nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Numărarea vârstei contactului") End If End If End Sub
- Ulterior, puteți ieși din fereastra curentă și puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid, ca de obicei.
- După aceea, puteți accesa folderul Contacte și selectați contactul specific și apăsați butonul macro din bara de instrumente Acces rapid.
- Î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
- La început, accesați panoul Contacte și apăsați butonul „Vizualizare setări” din fila „Vizualizare”.
- În noua casetă de dialog „Setări avansate de vizualizare”, apăsați butonul „Coloane”.
- 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”.
- După aceea, faceți clic pe o serie de „OK” pentru a reveni la fereastra principală a Outlook.
- 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 ca obiect Dim olContact ca obiect Dim olProp ca Outlook.UserProperty Dim bDay As Data Dim Age On Error Reluare Următorul pentru fiecare obiect din Application.ActiveExplorer.Selection Dacă TypeName(obj) = „ContactItem” și obj.Birthday <> #1/1/4501# Apoi Setați olContact = obj bDay = DateSerial(Year(Acum), 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
- Mai târziu, puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid.
- Î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