Outlook taqvimining ro'yxat ko'rinishida barcha tug'ilgan kun voqealari uchun mos keladigan shaxslarning yoshini qanday ko'rsatish mumkin

Ba'zi foydalanuvchilar taqvimdagi tug'ilgan kun tadbirini ko'rishda tegishli shaxsning yoshini ham ko'rishni xohlashadi. Shuning uchun, ushbu maqolada biz ushbu g'oyani osonlik bilan amalga oshirish usulini baham ko'ramiz.

Kontaktga tug'ilgan kun haqidagi ma'lumotni qo'shsangiz, Outlook avtomatik ravishda taqvimda tug'ilgan kun voqeasini yaratadi. Bunday holda, har safar taqvimda tug'ilgan kun voqealarini ko'rganingizda, tegishli shaxslarning yoshini ham olishni xohlashingiz mumkin. Shunday qilib, biz sizga buni amalga oshirish usulini taqdim etamiz.

Roʻyxat koʻrinishida barcha tugʻilgan kun voqealari uchun mos keladigan shaxslarning yoshini koʻrsating

1. Eng boshida Outlook VBA muharririni ishga tushiring.
2. Keyin quyidagi kodni modulga nusxalang.

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. Shundan so'ng, kursorni birinchi pastki dasturga qo'ying va ushbu makrosni ishga tushirish uchun "F5" tugmasini bosing.
4. Makros tugagach, VBA muharriridan chiqing va kalendar papkasini oching.
5. Keyinchalik, "Ko'rish" yorlig'iga o'ting va "Ko'rinishni o'zgartirish" > "Ro'yxat" ni bosing.
6. Keyin "Sozlamalarni ko'rish" tugmasini bosing.
7. Ochilgan dialog oynasida "Ustunlar" bandini tanlang.
8. Keyin, "Ustunlarni ko'rsatish" ning keyingi dialog oynasida "Mavjud maydonlarni tanlang" ro'yxatidan "Papkadagi foydalanuvchi tomonidan belgilangan maydonlar" ni tanlang.
9. Keyinchalik, "Mavjud ustunlar" oynasida "Yosh" belgisini qo'ying va "Qo'shish ->" tugmasini bosing.
10. Oxir-oqibat, taqvim elementlari ro'yxatiga qaytgunga qadar bir qator "OK" tugmasini bosing.
11. Endi, ro'yxatda siz quyidagi rasmda ko'rsatilganidek, barcha tug'ilgan kun voqealaridagi odamlarning yoshini ko'rishingiz mumkin.

Buzilgan Outlook faylini tuzatish

Siz duch kelganingizda vahima olishingiz mumkin buzilgan Outlook ko'plab qimmatli elektron pochta xabarlaringiz va jadvallaringizni o'z ichiga olgan fayl. Bunday muammo juda umidsiz bo'lishiga qaramay, siz hali ham bir vaqtning o'zida tinchlanishingiz va samarali choralarni ko'rishingiz kerak. Agar siz doimo tashvishlansangiz, vaziyat yomonlashishi va yomonlashishi mumkin. Darhaqiqat, shikastlangan faylni tiklashning bir qancha usullari va yordamchi dasturlari mavjud, masalan, kirish qutisini tuzatish vositasi va yanada mustahkamroq va tajribali vosita, masalan. DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com