Барлық туған күндердегі сәйкес жастарды Outlook күнтізбесінің тізім көрінісінде қалай көрсетуге болады

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

Кейбір пайдаланушылар күнтізбеде туған күн оқиғасын қарау кезінде сәйкес адамның жасын көргісі келеді. Сондықтан, осы мақалада біз осы идеяны оңай жүзеге асырудың әдісін бөлісеміз.

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

Тиісті адамдардың жасын барлық туған күн оқиғаларына тізім көрінісінде көрсетіңіз

  1. Ең басында Outlook VBA редакторын іске қосыңыз.
  2. Содан кейін келесі кодты модульге көшіріңіз.
Sub ShowAgesOfBirthdayEventsListView()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process All Calendar Folders in Your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Integer
    Dim objItem As Object
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim dStart, dBirth As Date
    Dim nAge As Integer
    Dim objNewProperty As Outlook.UserProperty
    Dim objSubCalendar As Outlook.Folder

    For i = objCalendar.Items.Count To 1 Step -1
        Set objItem = objCalendar.Items.Item(i)
        'Add "Age" Property to Birthday Events
        If (objItem.MeetingStatus = olNonMeeting) And (objItem.IsRecurring = True) And (Right(objItem.Subject, 11) = "'s Birthday") Then
           Set objBirthdayEvent = objItem
           dStart = objBirthdayEvent.Start
 
           'Count Age
           dCurrentBirthday = DateSerial(Year(Now), Month(dStart), Day(dStart))
           nAge = DateDiff("yyyy", dStart, dCurrentBirthday)
 
           Set objNewProperty = objBirthdayEvent.UserProperties.Find("Age", True)
           If objNewProperty Is Nothing Then
              Set objNewProperty = objBirthdayEvent.UserProperties.Add("Age", olText, True)
           End If
 
           objNewProperty.value = nAge
           objBirthdayEvent.Save
        End If
    Next
 
    'Process All Sub-Calendar Folders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

VBA коды - Тізім көрінісінде барлық туған күндер үшін тиісті жастарды көрсетіңіз

  1. Осыдан кейін курсорды бірінші ішкі бағдарламаға салыңыз да, осы макросты іске қосу үшін «F5» пернесін басыңыз.
  2. Макрос аяқталғаннан кейін VBA редакторынан шығып, күнтізбелік қалтаны ашыңыз.
  3. Содан кейін «Көру» қойындысына өтіп, «Көріністі өзгерту»> «Тізім» батырмасын басыңыз.Тізім көрінісіне ауысу
  4. Содан кейін «Параметрлерді қарау» батырмасын басыңыз.
  5. Қалқымалы диалог терезесінде “Бағандар” таңдаңыз.Бағандар
  6. Содан кейін, «Бағандарды көрсетудің» келесі диалогтық терезесінде «Қолданбалы өрістерді таңдаңыз» тізімінен «Папкадағы пайдаланушы анықтаған өрістерді» таңдаңыз.
  7. Кейінірек «Қол жетімді бағандар» өрісіне «Жас» дегенді қойып, «Қосу ->» батырмасын басыңыз.Жас бағанын қосу
  8. Соңында, күнтізбе элементтерінің тізіміне оралғанша, «ОК» қатарын басыңыз.
  9. Тізімде сіз келесі суретте көрсетілгендей барлық туған күндердегі адамдардың жасын көре аласыз.Адамның туған күніне арналған жасы

Бұзылған Outlook файлын түзетіңіз

Кездесу кезінде сіз үрейленуіңіз мүмкін бүлінген Outlook көптеген құнды электрондық хаттар мен кестелерді қамтитын файл. Мұндай мәселе өте қиын болғанына қарамастан, сіз бірден тынышталып, тиімді шараларды қарастыруыңыз керек. Егер сіз алаңдай берсеңіз, жағдай одан сайын нашарлауы мүмкін. Іс жүзінде зақымдалған файлды қалпына келтіретін бірнеше тәсілдер мен утилиталар бар, мысалы, кіріс жәшігін жөндеу құралы және неғұрлым сенімді және тәжірибелі құрал, мысалы. DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server бекіту және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

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

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