Outlook Təqviminin Siyahı Görünüşündə Bütün Ad Günü Hadisələri üçün Müvafiq Şəxslərin Yaşlarını Necə Göstərmək olar

Bəzi istifadəçilər təqvimdə ad günü tədbirinə baxarkən müvafiq şəxsin yaşını da görmək istəyirlər. Buna görə də, bu məqalədə bu fikri asanlıqla həyata keçirmək üçün bir üsul paylaşacağıq.

Siz kontakta ad günü haqqında məlumat əlavə etdiyiniz zaman Outlook avtomatik olaraq təqvimdə ad günü hadisəsi yaradacaq. Bu vəziyyətdə hər dəfə təqvimdə ad günü hadisələrini görəndə müvafiq şəxslərin yaşını da əldə etmək istəyə bilərsiniz. Beləliklə, burada sizə bunu həyata keçirməyin bir yolunu təqdim edəcəyik.

Siyahı Görünüşündə Bütün Ad Günü Hadisələri üçün Münasib Şəxslərin Yaşlarını Göstərin

1. Ən başlanğıcda Outlook VBA redaktorunu işə salın.
2. Sonra aşağıdakı kodu modula köçürün.

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

3. Bundan sonra kursoru birinci alt proqrama qoyun və bu makronu işə salmaq üçün “F5” düyməsini basın.
4. Makro tamamlandıqda, VBA redaktorundan çıxın və təqvim qovluğunu açın.
5. Sonra "Görünüş" sekmesine keçin və "Görünüşü dəyişdir" > "Siyahı" düyməsini basın.
6. Sonra, "Parametrlərə baxın" düyməsini basın.
7. Açılan informasiya qutusunda "Sütunlar" seçin.
8. Sonra, "Sütunları göstər"in növbəti dialoq qutusunda "Mövcud sahələri seçin" siyahısından "Qovluqda istifadəçi tərəfindən müəyyən edilmiş sahələr" seçin.
9. Daha sonra, "Mövcud sütunlar" qutusunda "Yaş" işarəsini qoyun və "Əlavə et ->" düyməsini basın.
10. Nəhayət, təqvim elementləri siyahısına qayıdana qədər bir sıra "OK" düyməsini basın.
11. İndi siyahıda aşağıdakı şəkildə göstərildiyi kimi bütün ad günü tədbirlərində şəxslərin yaşlarını görə bilərsiniz.

Təhlükəli Outlook faylını düzəldin

Qarşılaşdığınız zaman panikaya düşə bilərsiniz korlanmış Outlook bir çox dəyərli e-poçt və cədvəllərinizi ehtiva edən fayl. Belə bir məsələnin olduqca çıxılmaz olmasına baxmayaraq, siz hələ də dərhal sakitləşməli və təsirli tədbirləri nəzərdən keçirməlisiniz. Əgər narahat olmağa davam etsəniz, vəziyyət daha da pisləşə bilər. Əslində, zədələnmiş faylı təmir edə biləcək bir çox yol və köməkçi proqramlar var, məsələn, gələnlər qutusu təmir aləti və daha möhkəm və təcrübəli alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server düzeltmek və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com