2 Outlook контактінің жасын алудың жылдам әдістері

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Кейде сіз Outlook контактілерінің жасын есептегіңіз келуі мүмкін. Бірақ Outlook бағдарламасында бұл функция жоқ, қолмен санау қателіктерге әкеледі. Осылайша, бұл мақала сізге Outlook VBA арқылы 2 жылдам тәсілмен таныстырады.

Жаңа 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. Содан кейін «Бағандарды көрсету» диалогтық терезесінде «Жаңа баған» батырмасын басыңыз. «Жаңа баған» диалог терезесінде «Аты» өрісіне «Жас» деп теріп, содан кейін «ОК» басыңыз.Жас бағанын қосу
  4. Осыдан кейін негізгі Outlook терезесіне оралу үшін «ОК» қатарын басыңыз.
  5. Содан кейін «Visual Basic» терезесін ашып, келесі кодтарды жаңа модульге көшіру үшін «Alt + F11» пернелерін басыңыз.
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

Қазір бөлісу:

Пікірлер жабылды.