2 бързи метода за определяне на възрастта на вашия контакт в Outlook

Понякога може да искате да преброите възрастта на вашите контакти в Outlook. Но Outlook няма тази функция и ръчното преброяване ще бъде склонно към грешки. По този начин тази статия ще ви представи 2 бързи подхода чрез Outlook VBA.

Когато създавате нови контакти в Outlook, можете да въведете рождените дати на контактите. След това Outlook автоматично ще създаде съответните повтарящи се събития за рождени дни във вашия календар. Така че, когато настъпи нечий рожден ден, ще получите напомняне. В този момент сигурно искате да знаете възрастта на контакта. Но Outlook няма вградена функция за броене на възрастта на контакта. За щастие, можем да използваме Outlook VBA, за да я получим с максимална лекота.

Метод 1: Получете възраст на конкретен контакт на Outlook

1. За начало стартирайте Outlook и натиснете клавишните комбинации „Alt + F11“.
2. След това в новия прозорец „Microsoft Visual Basic for Applications“ трябва да отворите нов модул и да копирате следните 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. Впоследствие можете да излезете от текущия прозорец и да добавите новия макрос към лентата с инструменти за бърз достъп, както обикновено.
4. След това можете да осъществите достъп до вашата папка Контакти и да изберете конкретния контакт и да натиснете бутона за макрос в лентата с инструменти за бърз достъп.
5. Накрая може да получите следните резултати:

• Ако не сте въвели рождените дни на контакта, ще получите предупреждение като следното изображение:
• Ако въведете рождения ден на контакта, ще получите диалогов прозорец, който ще ви каже възрастта на контакта, като изображението по-долу:

Метод 1 ще бъде досаден, ако искате да получите възрастта на няколко или всичките си контакти. Затова, моля, прочетете нататък, за да използвате метода 2.

Метод 2: Бързо получаване на възрастта на всички контакти в Outlook

1. Първо отидете в екрана Контакти и натиснете бутона „Преглед на настройките“ в раздела „Преглед“.
2. В новия диалогов прозорец „Разширени настройки на изгледа“ натиснете бутона „Колони“.
3. След това в диалоговия прозорец „Показване на колони“ натиснете бутона „Нова колона“. В диалоговия прозорец „Нова колона“ въведете „Age“ в полето „Name“ и след това натиснете „OK“.
4. След това щракнете върху серия от „OK“, за да се върнете в главния прозорец на Outlook.
5. След това натиснете „Alt + F11“, за да отворите прозореца „Visual Basic“ и копирайте следните кодове в нов модул.

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. По-късно можете да добавите новия макрос към лентата с инструменти за бърз достъп.
7. В крайна сметка изберете всички контакти чрез „Ctrl + A“ и натиснете бутона за макрос в лентата с инструменти за бърз достъп. Ще получите възрастта на всички контакти, с изключение на тези, които нямат попълнени рождени дни, като снимката по-долу:

Пазете се от рискове около данните си в Outlook

Outlook е склонен към корупция. Следователно трябва да следите всички опасности около данните си в Outlook. Те обикновено са вируси, зловреден софтуер, прекъсване на електрозахранването и човешки грешки и др. Освен това, за да се гарантира, че можете бързо поправяне на корупцията на данните в Outlook PST, по-добре дръжте опитен инструмент за ремонт в близост, например DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправяне на повреден SQL файл и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com