Shaxsiy kalendar ob'ektlarini Outlook-da ma'lum bir rangda avtomatik ko'rsatishning 2 usuli

Taqvimdagi shaxsiy va shaxsiy bo'lmagan elementlarni osonroq ajratish uchun siz shaxsiy elementlarni avtomatik ravishda ma'lum bir rangda, masalan, qizil rangda ko'rsatishni xohlashingiz mumkin. Ushbu postda buni amalga oshirishning 2 usuli taqdim etiladi.

Ko'pgina foydalanuvchilar taqvim elementlarini shaxsiy yoki shaxsiy emasligiga qarab tasniflashni afzal ko'rishadi. Kalendarda shaxsiy ob'ektlar sukut bo'yicha ko'rishda aniq farqlarga ega emasligi sababli, shaxsiy narsalarni osonroq aniqlash uchun siz Outlook-ga ularni ma'lum bir rangda avtomatik ravishda ko'rsatishiga ruxsat berishingiz mumkin. Bu erda biz sizga uni olishning 2 ta yondashuvini o'rgatamiz.

1-usul: "Shartli formatlash" dan foydalaning

1. Boshlash uchun Outlook-ni ishga tushiring va "Taqvim" oynasiga o'ting.
2. Keyin "Ko'rish" yorlig'iga o'ting va ko'rinishni "Taqvim" ga o'zgartiring.
3. Keyin "Sozlamalarni ko'rish" tugmasini bosing.
4. Qalqib chiquvchi dialog oynasida "Shartli formatlash" ni bosing.
5. Keyinchalik, keyingi dialog oynasida "Qo'shish" tugmasini bosing va "Shaxsiy" kabi nomni kiriting.
6. Keyin, mening misolim uchun "To'q qizil" kabi ma'lum bir rangni tanlang.
7. Shundan so'ng, "Shart" tugmasini bosing.
8. Keyingi dialog oynasida "Kengaytirilgan" yorlig'iga o'ting va quyidagi filtrni qo'shing:

Sensitivity > equals > private

9. Nihoyat, ushbu formatlash qoidasini saqlash uchun "Ro'yxatga qo'shish" va bir nechta "OK" tugmasini bosing.
10. Bundan buyon barcha shaxsiy taqvim elementlari "To'q qizil" rangda ko'rsatiladi.

2-usul: VBA-da "Avtomatik rangni tasniflash" dan foydalaning

1. Avvalo, ma'lum bir rang bilan "Shaxsiy" deb nomlangan yangi rang toifasini yarating.
2. Keyin, "ga muvofiq Outlook VBA muharririni ishga tushiring.Outlook-da VBA kodini qanday ishlatish kerak".
3. Keyin quyidagi kodni "ThisOutlookSession" loyihasiga qo'ying.

Private WithEvents objCalendarItems As Outlook.Items

Private Sub Application_Startup()
     Set objCalendarItems = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub objCalendarItems_ItemAdd(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Private Sub objCalendarItems_ItemChange(ByVal Item As Object)
    Dim objCalendarItem As Outlook.AppointmentItem

    Set objCalendarItem = Item

    If objCalendarItem.Sensitivity = olPrivate Then
       objCalendarItem.Categories = "Private"
    Else
       Call RemovePrivateCategory(objCalendarItem, "Private")
    End If

    objCalendarItem.Save
End Sub

Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String)
    Dim varCategories As Variant
    Dim i As Long

    varCategories = Split(objCurrentItem.Categories, ",")

    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
      Next
    End If
End Sub

4. Oxir-oqibat, ushbu so'lni faollashtirish uchun Outlook-ni qayta ishga tushiring.
5. Endi siz sinab ko'rishingiz mumkin.

• Birlamchi taqvimdagi elementga ovoz bering.
• Keyin uni "Shaxsiy" ga o'zgartiring.
• Quyidagi skrinshotda ko'rsatilganidek, darhol ushbu elementga "Shaxsiy" rang toifasi tayinlanadi.

Qimmatli Outlook ma'lumotlaringizni qutqaring

Outlook zaif bo'lganligi sababli, ko'p foydalanuvchilar PST buzilishiga duchor bo'lishdi. Umuman olganda, unga duch kelganingizda, avvalo, sinab ko'rishingiz mumkin pochta qutisini tuzatish vositasi faylni tuzatish uchun. Ammo, agar u muvaffaqiyatsiz bo'lsa, siz kuchliroq va ishonchli tashqi yordam dasturiga murojaat qilishingiz mumkin, 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 buzilishi va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com