Ve výchozím nastavení je stav celodenní události „zdarma“. Ve skutečnosti ale obecně doufáme, že nastavíme stav na „Obsazeno“. V tomto článku vám proto ukážeme dva přístupy k jeho realizaci.
Mnoho uživatelů je naštvaných, že Outlook ve výchozím nastavení zobrazuje celodenní událost jako „zdarma“. Při vytváření celodenní události tedy musí pokaždé ručně změnit stav. Nepochybně je to docela problematické. Proto zde představíme 2 tipy pro automatické nastavení stavu celodenní události na „Obsazeno“.

Metoda 1: Návrh vlastního formuláře „Busy All day Event“
- Pro začátek spusťte Outlook.
- Poté přejděte do navigačního podokna „Kalendář“.
- Poté můžete vytvořit novou schůzku kliknutím na tlačítko „Nová schůzka“ na pásu karet.
- V okně Schůzka přejděte na kartu „Vývojář“ a stiskněte tlačítko „Navrhnout tento formulář“.
- Poté musíte přepnout na stránku „P.2“.
- Později z vyskakovacího dialogového okna „Field Chooser“ přetáhněte pole „Celodenní událost“ a „Zobrazit čas jako“ na stránku „P.2“.
- Dále klikněte pravým tlačítkem na pole „Celodenní událost“ a v místní nabídce vyberte možnost „Vlastnosti“.
- V rozbalovacím dialogovém okně přepněte na kartu „Hodnota“, povolte „Nastavit počáteční hodnotu tohoto pole na“ a do níže uvedeného pole zadejte „True“.
- Poté klikněte na „OK“ pro uložení změn.
- Poté klikněte pravým tlačítkem na pole se seznamem vedle pole „Zobrazit čas jako“ a vyberte možnost „Vlastnosti“.
- V následujícím dialogovém okně přejděte na kartu „Hodnota“, zaškrtněte „Nastavit počáteční hodnotu tohoto pole na“ a do níže uvedeného pole zadejte „2“.
- Později kliknutím na „OK“ se vrátíte zpět do formuláře.
- Nakonec můžete kliknout na tlačítko „Publikovat“ na pásu karet a zvolit „Publikovat formulář jako“. V novém dialogovém okně zadejte název do pole „Zobrazovaný název“ a nakonec stiskněte tlačítko „Publikovat“.
- Od této chvíle můžete pokaždé, když kliknete a vytvoříte rušnou celodenní událost, kliknout na „Nová položka“> „Vybrat formulář“> „Rušné celodenní události“.
Pokud máte pocit, že to není tak praktické, jak si přejete, můžete zvolit následující způsob, který používá VBA.
Metoda 2: Automaticky nastavit celodenní událost na „Obsazeno“ pomocí VBA
- Chcete-li začít, v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
- Po získání přístupu k editoru aplikace Outlook VBA otevřete okno projektu „ThisOutlookSession“.
- Potom zkopírujte následující kód VBA do tohoto projektu.
Private WithEvents objInspectors As Inspectors
Private WithEvents objAppointment As AppointmentItem
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "AppointmentItem" Then
Set objAppointment = Inspector.CurrentItem
End If
End Sub
'Occur when opening an appointment
Private Sub objAppointment_Open(Cancel As Boolean)
If objAppointment.AllDayEvent = True Then
objAppointment.BusyStatus = olBusy
End If
End Sub
'Occur when changing an appointment
Private Sub objAppointment_PropertyChange(ByVal Name As String)
If Name = "AllDayEvent" Then
'If you set the appointment to all day event
If objAppointment.AllDayEvent = True Then
objAppointment.BusyStatus = olBusy
End If
End If
End Sub
- Poté podepište tento kód a změňte nastavení maker aplikace Outlook.
- Nakonec restartujte aplikaci Outlook, abyste tento nový projekt aktivovali.
- Od té doby se pokaždé, když vytvoříte celodenní událost, její stav automaticky nastaví na „Zaneprázdněn“.
Zabezpečte svá data aplikace Outlook
Není pochyb o tom, že kolem aplikace Outlook existuje řada potenciálních bezpečnostních hrozeb. Zabezpečení našich dat v Outlooku je tedy docela zatěžující a namáhavé. Měli bychom být stále ostražití. Navíc, abychom včas přijali záchranná opatření, měli bychom se zmocnit a Oprava PST nástroj, jako 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ě opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com






