2 metode pentru a afișa automat elementele din calendarul privat într-o anumită culoare în Outlook

Pentru a distinge mai ușor elementele private și cele non-private din calendar, poate doriți să afișați automat elementele private într-o anumită culoare, cum ar fi roșu, pentru a le evidenția. Acest post va introduce 2 moduri de a-l realiza.

Mulți utilizatori preferă să clasifice elementele din calendar în funcție de faptul că sunt private sau nu. Deoarece, în calendar, elementele private nu au diferențe evidente de viziune în mod implicit, pentru a identifica mult mai ușor articolele private, puteți lăsa Outlook să le arate automat într-o anumită culoare. Aici vă vom învăța 2 abordări pentru a-l obține.

Metoda 1: Folosiți „Formatare condiționată”

1. Pentru noitart, lansați Outlook și accesați panoul „Calendar”.
2. Apoi, accesați fila „Vizualizare” și schimbați vizualizarea în „Calendar”.
3. Apoi, apăsați butonul „Vizualizare setări”.
4. În caseta de dialog pop-up, faceți clic pe „Formatare condiționată”.
5. Mai târziu, în dialogul următor, faceți clic pe „Adăugați” și introduceți un nume, cum ar fi „Privat”.
6. Apoi, selectați o anumită culoare, cum ar fi „Roșu închis” pentru exemplul meu.
7. După aceea, faceți clic pe butonul „Condiție”.
8. În următoarea casetă de dialog, comutați la fila „Avansat” și adăugați următorul filtru:

Sensibilitate > egală > privat

9. În cele din urmă, faceți clic pe „Adăugați la listă” și pe câteva „OK” pentru a salva această regulă de formatare.
10. De acum înainte, toate elementele private din calendar vor fi afișate în „Roșu închis”.

Metoda 2: Utilizați „Categorizare automată a culorilor” în VBA

1. În primul rând, creați o nouă categorie de culori numită „Privat” cu o anumită culoare.
2. Apoi, lansați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
3. Apoi, introduceți următorul cod în proiectul „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 objCalendarItemsItem Obj = ObjCalendarItemsCalendarItem Obj. ndarItem.Categorii = „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.Categories = „Private” Else Apelați RemovePrivateCategory(objCalendarItem, „Private”) End If objCalendarItem.Save End Sub RemovePrivateCategory(ByVal objCurrentItem As Object, ByRef strCategory As String) Dim varCategories As Variant Dim iCurrent Var. ,") 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 cele din urmă, restart Outlook pentru a activa această macrocomandă.
5. Acum, poți să încerci.

• Prezentați un articol din calendarul implicit.
• Apoi, schimbați-l în „Privat”.
• Imediat, categoria de culoare „Privată” va fi atribuită acestui articol, așa cum se arată în următoarea captură de ecran.

Salvați-vă datele Outlook valoroase

Deoarece Outlook este vulnerabil, mulți utilizatori au fost vreodată supuși corupției PST. În general, atunci când îl întâlnești, poți încerca mai întâi instrument de reparare inbox pentru a repara fișierul. Cu toate acestea, dacă nu reușește, puteți recurge la un utilitar extern mai puternic și mai fiabil, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv corupție sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com