2 быстрых способа узнать возраст вашего контакта в Outlook

Перспективные решения 29 сентября, 2025
Поделись сейчас:

Иногда вам может понадобиться подсчитать возраст ваших контактов Outlook. Но в Outlook нет этой функции, и подсчет вручную будет подвержен ошибкам. Таким образом, эта статья познакомит вас с двумя быстрыми подходами через Outlook VBA.

При создании новых контактов в Outlook вы можете указать даты рождения контактов. Затем Outlook автоматически создаст соответствующие повторяющиеся события, связанные с днями рождения, в вашем календаре. Таким образом, когда у кого-либо наступит день рождения, вы получите напоминание. На этом этапе вам, вероятно, захочется узнать возраст контакта. Но в Outlook нет встроенной функции для подсчета возраста контактов. К счастью, мы можем использовать Outlook VBA, чтобы получить это с максимальной легкостью.

Способ 1: получить возраст определенного контакта Outlook

  1. Для начала запустите Outlook и нажмите клавиши «Alt + F11».
  2. Затем в новом окне «Microsoft Visual Basic для приложений» вы должны открыть новый модуль и скопировать в него следующие коды 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. Затем в диалоговом окне «Показать столбцы» нажмите кнопку «Новый столбец». В диалоговом окне «Новый столбец» введите «Возраст» в поле «Имя» и нажмите «ОК».Добавить столбец возраста
  4. После этого нажмите серию «ОК», чтобы вернуться в главное окно 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. Обычно это вирусы, вредоносное ПО, перебои в подаче электроэнергии, человеческие ошибки и т. д. Более того, чтобы вы могли быстро исправить повреждение данных Outlook PST, вам лучше иметь поблизости опытный инструмент для ремонта, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить поврежденный файл SQL и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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