Outlook-da xüsusi bir rəngdə şəxsi təqvim elementlərini avtomatik göstərmək üçün 2 üsul

Təqvimdəki şəxsi və şəxsi olmayan elementləri daha asan ayırd etmək üçün şəxsi elementləri vurğulamaq üçün onları avtomatik olaraq qırmızı kimi müəyyən bir rəngdə göstərmək istəyə bilərsiniz. Bu yazıda bunu həyata keçirməyin 2 yolu təqdim olunacaq.

Bir çox istifadəçi təqvim elementlərini şəxsi olub-olmamasına görə təsnif etməyi üstün tutur. Təqvimdə şəxsi əşyaların defolt olaraq görmə baxımından heç bir açıq fərqi olmadığı üçün şəxsi əşyaları daha asan müəyyən etmək üçün Outlook-a onları avtomatik olaraq müəyyən rəngdə göstərməsinə icazə verə bilərsiniz. Burada onu əldə etmək üçün sizə 2 yanaşma öyrədəcəyik.

Metod 1: "Şərti Formatlaşdırma" istifadə edin

1. Başlamaq üçün Outlook-u işə salın və "Təqvim" bölməsinə daxil olun.
2. Sonra "Görünüş" sekmesine keçin və görünüşü "Təqvim"ə dəyişin.
3. Sonra, "Parametrlərə Bax" düyməsini basın.
4. Açılan informasiya qutusunda "Şərti Formatlaşdırma" düyməsini basın.
5. Daha sonra, sonrakı dialoq pəncərəsində "Əlavə et" düyməsini basın və "Şəxsi" kimi bir ad daxil edin.
6. Sonra mənim nümunəm üçün "Tünd Qırmızı" kimi xüsusi bir rəng seçin.
7. Bundan sonra, "Vəziyyət" düyməsini basın.
8. Növbəti dialoq qutusunda "Qabaqcıl" sekmesine keçin və aşağıdakı filtri əlavə edin:

Sensitivity > equals > private

9. Nəhayət, bu formatlaşdırma qaydasını saxlamaq üçün "Siyahıya əlavə et" və bir neçə "OK" düyməsini basın.
10. Bundan sonra bütün şəxsi təqvim elementləri “Tünd qırmızı” rəngdə göstəriləcək.

Metod 2: VBA-da "Avtomatik Rəng Kateqoriyasına" istifadə edin

1. Əvvəlcə müəyyən bir rənglə "Şəxsi" adlı yeni rəng kateqoriyası yaradın.
2. Sonra, "a uyğun olaraq Outlook VBA redaktorunu işə salın.Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra aşağıdakı kodu “ThisOutlookSession” layihəsinə qoyun.

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. Nəhayət, bu makronu aktivləşdirmək üçün Outlook-u yenidən başladın.
5. İndi cəhd edə bilərsiniz.

• Defolt təqvimdəki elementə səs verin.
• Sonra onu "Şəxsi" olaraq dəyişdirin.
• Aşağıdakı ekran görüntüsündə göstərildiyi kimi, dərhal bu elementə "Şəxsi" rəng kateqoriyası təyin ediləcək.

Dəyərli Outlook məlumatlarınızı xilas edin

Outlook həssas olduğundan, bir çox istifadəçi heç vaxt PST korrupsiyasına məruz qalıb. Ümumiyyətlə, onunla qarşılaşdığınız zaman əvvəlcə cəhd edə bilərsiniz inbox təmir aləti faylı düzəltmək üçün. Bununla belə, uğursuz olarsa, daha güclü və etibarlı xarici yardım proqramına müraciət edə bilərsiniz 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 korrupsiyası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com