A naptárban a privát és a nem privát elemek könnyebb megkülönböztetése érdekében érdemes lehet automatikusan egy adott színnel, például pirossal megjeleníteni a privát elemeket a kiemelésükhöz. Ez a bejegyzés két módszert mutat be ennek megvalósítására.
Sok felhasználó jobban szereti a naptárelemek besorolását aszerint, hogy azok privátak-e vagy sem. Mivel a naptárban a privát elemeknek alapértelmezés szerint nincs nyilvánvaló különbsége a nézetben, így a privát elemek sokkal könnyebben azonosíthatók, engedélyezheti az Outlook automatikus megjelenítését egy adott színben. Itt megtanítunk neked 2 megközelítést ennek eléréséhez.
1. módszer: Használja a „Feltételes formázást”
- Kezdésként indítsa el az Outlookot, és lépjen a „Naptár” ablaktáblára.
- Ezután lépjen a „Nézet” fülre, és módosítsa a nézetet „Naptár”-ra.
- Ezután nyomja meg a „Beállítások megtekintése” gombot.
- A felugró párbeszédpanelen kattintson a „Feltételes formázás” elemre.
- Később a következő párbeszédpanelen kattintson a „Hozzáadás” gombra, és írjon be egy nevet, például „Privát”.
- Ezután válasszon ki egy adott színt, például a „Sötétvörös”-t a példányomhoz.
- Ezt követően kattintson a „Feltétel” gombra.
- A következő párbeszédpanelen váltson a „Speciális” fülre, és adja hozzá a következő szűrőt:
Sensitivity > equals > private
- Végül kattintson a „Hozzáadás a listához” és néhány „OK” gombra a formázási szabály mentéséhez.
- Mostantól az összes privát naptárelem „Sötétvörös” színben jelenik meg.
2. módszer: Használja az „Auto Color Categorize” funkciót a VBA-ban
- Először is hozzon létre egy új színkategóriát „Privát” néven egy adott színnel.
- Ezután indítsa el az Outlook VBA szerkesztőt a „A VBA kód futtatása az Outlookban".
- Ezután helyezze be a következő kódot a „ThisOutlookSession” projektbe.
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
- Végül indítsa újra az Outlookot a makró aktiválásához.
- Most kipróbálhatod.
- Állítson be egy elemet az alapértelmezett naptárban.
- Ezután módosítsa „Privát”-ra.
- Egyszerre „Privát” színkategória lesz hozzárendelve ehhez az elemhez, amint az a következő képernyőképen látható.
Mentse meg értékes Outlook adatait
Mivel az Outlook sebezhető, sok felhasználó volt kitéve a PST korrupciójának. Általában, ha találkozik vele, először megpróbálhatja a postafiók javító eszköz a fájl javításához. Mégis, ha nem sikerül, akkor egy erősebb és megbízhatóbb külső segédprogramhoz folyamodhat, mint pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql korrupció és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com