2 швидкі методи визначення віку контакту з Outlook

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Іноді вам може знадобитися порахувати вік контактів Outlook. Але Outlook не має цієї функції, і підрахунок вручну буде схильним до помилок. Таким чином, ця стаття представить вам два швидкі підходи через 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

Коди VBA - підрахуйте вік конкретного контакту Outlook

  1. Згодом ви можете вийти з поточного вікна та додати новий макрос на панель швидкого доступу, як зазвичай.
  2. Після цього ви можете отримати доступ до папки Контакти та вибрати конкретний контакт і натиснути кнопку макросу на панелі швидкого доступу.
  3. Нарешті, ви можете отримати наступні результати:
  • Якщо ви не ввели дні народження контакту, ви отримаєте сповіщення, як показано на малюнку:Сповіщення Outlook
  • Якщо ви введете дату народження контакту, ви отримаєте діалогове вікно, яке вкаже вам вік контакту, як на малюнку нижче:Граф Контактний вік

Спосіб 1 буде нудним, якщо ви хочете отримати вік кількох або всіх своїх контактів. Тому, будь ласка, прочитайте далі, щоб використовувати метод 2.

Спосіб 2: Швидко отримайте вік усіх контактів Outlook

  1. Спочатку перейдіть на панель контактів і натисніть кнопку «Налаштування перегляду» на вкладці «Перегляд».
  2. У новому діалоговому вікні «Додаткові параметри перегляду» натисніть кнопку «Стовпці».
  3. Потім у діалоговому вікні «Показати стовпці» натисніть кнопку «Нова колонка». У діалоговому вікні "Нова колонка" введіть "Вік" у полі "Ім'я", а потім натисніть "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

Коди VBA - швидко отримуйте вік усіх контактів Outlook

  1. Пізніше ви можете додати новий макрос на панель швидкого доступу.
  2. Врешті-решт виберіть усі контакти за допомогою “Ctrl + A” і натисніть кнопку макросу на панелі швидкого доступу. Ви отримаєте вік усіх контактів, крім тих, хто не заповнив дні народження, як на малюнку нижче:Отримати вік усіх контактів

Остерігайтеся ризиків, пов’язаних із вашими даними Outlook

Outlook схильний до корупції. Тому слід стежити за всіма небезпеками навколо даних Outlook. Зазвичай це віруси, шкідливе програмне забезпечення, перебої в електроживленні та людські помилки тощо. Більше того, щоб забезпечити вам можливість швидко виправити пошкодження даних PST - -, краще тримайте поруч досвідчений інструмент для ремонту, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення пошкодженого файлу SQL - - та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com

Поділитися зараз:

Коментарі закриті.