Abyste v kalendáři snáze rozlišili soukromé položky od těch, které nejsou soukromé, můžete soukromé položky automaticky zobrazovat určitou barvou, například červenou, abyste je zvýraznili. Tento příspěvek představí dva způsoby, jak toho dosáhnout.
Mnoho uživatelů dává přednost klasifikaci položek kalendáře podle toho, zda jsou soukromé nebo ne. Vzhledem k tomu, že v kalendáři soukromé položky nemají ve výchozím nastavení žádné zjevné rozdíly ve vidění, aby bylo možné soukromé položky mnohem snadněji identifikovat, můžete nechat Outlook automaticky zobrazit je v konkrétní barvě. Zde vás naučíme 2 přístupy, jak to získat.
Metoda 1: Použijte „Podmíněné formátování“
- Pro začátek spusťte Outlook a přejděte do sekce „Kalendář“.
- Poté přejděte na kartu „Zobrazit“ a změňte zobrazení na „Kalendář“.
- Dále stiskněte tlačítko „Zobrazit nastavení“.
- V rozbalovacím dialogovém okně klikněte na „Podmíněné formátování“.
- Později v následujícím dialogovém okně klikněte na „Přidat“ a zadejte název, například „Soukromý“.
- Poté vyberte konkrétní barvu, například „Tmavě červená“.
- Poté klikněte na tlačítko „Podmínka“.
- V dalším dialogovém okně přepněte na kartu „Upřesnit“ a přidejte následující filtr:
Sensitivity > equals > private
- Nakonec uložte toto pravidlo formátování kliknutím na „Přidat do seznamu“ a na několik „OK“.
- Od této chvíle se všechny položky soukromého kalendáře budou zobrazovat „tmavě červeně“.
Metoda 2: Použijte „Automatickou kategorizaci barev“ ve VBA
- Nejprve vytvořte novou kategorii barev nazvanou „Soukromé“ se specifickou barvou.
- Dále spusťte editor Outlook VBA podle „Jak spustit kód VBA ve vašem Outlooku".
- Potom vložte následující kód do projektu „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
- Nakonec restartujte Outlook, abyste toto makro aktivovali.
- Nyní můžete vyzkoušet.
- Pitch na položku ve výchozím kalendáři.
- Poté to změňte na „Soukromé“.
- Najednou bude této položce přiřazena barevná kategorie „Soukromé“, jak ukazuje následující snímek obrazovky.
Zachraňte svá cenná data aplikace Outlook
Protože Outlook je zranitelný, mnoho uživatelů bylo někdy vystaveno poškození PST. Obecně platí, že když se s ním setkáte, můžete nejprve vyzkoušet nástroj pro opravu doručené pošty opravit soubor. Pokud však selže, můžete se uchýlit k účinnějšímu a spolehlivějšímu externímu nástroji DataNumen Outlook Repair.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně korupce sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com