Pentru a distinge mai ușor elementele private de cele neprivate din calendar, puteți afișa automat elementele private într-o anumită culoare, cum ar fi roșu, pentru a le evidenția. Această postare va prezenta două modalități de a realiza acest lucru.
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ă”
- Pentru început, lansați Outlook și accesați panoul „Calendar”.
- Apoi, accesați fila „Vizualizare” și schimbați vizualizarea în „Calendar”.
- Apoi, apăsați butonul „Vizualizare setări”.
- În caseta de dialog pop-up, faceți clic pe „Formatare condiționată”.
- Mai târziu, în dialogul următor, faceți clic pe „Adăugați” și introduceți un nume, cum ar fi „Privat”.
- Apoi, selectați o anumită culoare, cum ar fi „Roșu închis” pentru exemplul meu.
- După aceea, faceți clic pe butonul „Condiție”.
- În următoarea casetă de dialog, comutați la fila „Avansat” și adăugați următorul filtru:
Sensitivity > equals > private
- Î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.
- 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
- În primul rând, creați o nouă categorie de culori numită „Privat” cu o anumită culoare.
- Apoi, lansați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
- 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 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
- În cele din urmă, reporniți Outlook pentru a activa această macrocomandă.
- 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