თქვენს Outlook-ში პირადი კალენდრის ელემენტების კონკრეტულ ფერში ავტომატური ჩვენების 2 მეთოდი

Outlook Solutions სექტემბერი 29, 2025

კალენდარში პირადი და არაპირადი ერთეულების უფრო ადვილად გასარჩევად, შეგიძლიათ პირადი ერთეულები ავტომატურად გამოაჩინოთ კონკრეტულ ფერში, მაგალითად, წითლად, მათი გამოსაყოფად. ეს პოსტი წარმოგიდგენთ ამის განხორციელების 2 გზას.

ბევრი მომხმარებელი ურჩევნია კალენდრის ელემენტების კლასიფიკაცია იმის მიხედვით, არის თუ არა ისინი პირადი. იმის გამო, რომ კალენდარში, პირად ელემენტებს ნაგულისხმევად არ აქვთ აშკარა განსხვავებები ხედვაში, ისე, რომ პირადი ნივთები ბევრად უფრო ადვილად იდენტიფიციროთ, შეგიძლიათ Outlook-ს ავტომატურად აჩვენოთ ისინი კონკრეტულ ფერში. აქვე გასწავლით მის მისაღებად 2 მიდგომას.

მეთოდი 1: გამოიყენეთ "პირობითი ფორმატირება"

დასაწყებად, გახსენით Outlook და გადადით "კალენდარის" პანელზე.
შემდეგ გადადით ჩანართზე „ნახვა“ და შეცვალეთ ხედი „კალენდარზე“.
შემდეგი, დააჭირეთ ღილაკს "პარამეტრების ნახვა".
ფანჯარაში, რომელიც გამოჩნდება, დააჭირეთ "პირობითი ფორმატირება".
მოგვიანებით, მომდევნო დიალოგში, დააწკაპუნეთ "დამატება" და შეიყვანეთ სახელი, როგორიცაა "პირადი".
შემდეგ, აირჩიეთ კონკრეტული ფერი, მაგალითად, „მუქი წითელი“, მაგალითად.
ამის შემდეგ დააჭირეთ ღილაკს "მდგომარეობა".
შემდეგ დიალოგურ ფანჯარაში გადადით "Advanced" ჩანართზე და დაამატეთ შემდეგი ფილტრი:

Sensitivity > equals > private

დაბოლოს, დააწკაპუნეთ "დამატება სიაში" და რამდენიმე "OK" ამ ფორმატირების წესის შესანახად.
ამიერიდან ყველა პირადი კალენდრის ელემენტი ნაჩვენები იქნება „მუქი წითელში“.

მეთოდი 2: გამოიყენეთ „Auto Color Categorize“ VBA-ში

უპირველეს ყოვლისა, შექმენით ახალი ფერის კატეგორია სახელწოდებით "პირადი" კონკრეტული ფერით.
შემდეგი, გაუშვით Outlook VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
შემდეგ ჩადეთ შემდეგი კოდი "ThisOutlookSession" პროექტში.

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

საბოლოოდ, ამ მაკროს გასააქტიურებლად გადატვირთეთ Outlook.
ახლა, შეგიძლიათ სცადოთ.

ნაგულისხმევი კალენდრის ერთეულის დაყენება.
შემდეგ შეცვალეთ იგი "პირადი".
ამ ერთეულს ერთდროულად მიენიჭება „პირადი“ ფერის კატეგორია, როგორც ეს ნაჩვენებია შემდეგ ეკრანის სურათზე.

გადაარჩინე შენი ღირებული Outlook მონაცემები

ვინაიდან Outlook დაუცველია, ბევრი მომხმარებელი ოდესმე ექვემდებარება PST კორუფციას. ზოგადად, როდესაც მას შეხვდებით, შეგიძლიათ ჯერ სცადოთ შემოსულების სარემონტო ინსტრუმენტი ფაილის გასასწორებლად. თუმცა, თუ ის ვერ მოხერხდა, შეგიძლიათ მიმართოთ უფრო მძლავრ და საიმედო გარე პროგრამას, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql კორუფცია და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად