Přejít k hlavnímu obsahu

Jak změnit výchozí nastavení celodenní události na obsazeno v aplikaci Outlook?

Ve výchozím nastavení Outlook nastavuje stav schůzek a schůzek na "Zaneprázdněný", ale celodenní akce k "Volný, uvolnit" (viz snímek obrazovky níže). Při každém vytvoření celodenní události musíte ručně změnit stav Zobrazit jako na Zaneprázdněn. Chcete-li změnit výchozí zobrazení jako stav celodenních událostí na Zaneprázdněno, článek poskytuje dva způsoby.


Změňte výchozí nastavení celodenní události na obsazeno vytvořením vlastního formuláře

Vlastní formulář vám může pomoci vytvořit celodenní událost s výchozím nastavením Zobrazit jako stav Zaneprázdněný. Postupujte prosím následovně.

1. Přejděte do zobrazení Kalendář. Klikněte Domů > Nová událost.

2. V novém okně Schůzka klikněte na Vývojář > Navrhnout tento formulář.

Tip: V případě, že Vývojka karta se na pásu karet nezobrazuje, postupujte podle metod v tomto článku pro zobrazení.

3. Poté se okno schůzky přepne do režimu návrhu. Musíte kliknout na (Str.2) Karta.

4. Přetáhněte ikonu Celodenní akce pole a Zobrazit čas jako pole z Výběr pole panel samostatně k desce pod (Str.2) Karta

5. Klepněte pravým tlačítkem na přetaženou položku Celodenní akce pole a vyberte Nemovitosti z kontextové nabídky.

6. V Nemovitosti dialogové okno, musíte nakonfigurovat následujícím způsobem.

6.1) Přejít na Hodnota karta;
6.2) V Počáteční hodnota zkontrolujte část Nastavte počáteční hodnotu tohoto pole na krabice;
6.3) Zadejte hodnotu "Skutečný" do textového pole;
6.4) Klikněte na OK knoflík. Viz screenshot:

7. Klepněte pravým tlačítkem myši na pole se seznamem Zobrazit čas jako pole a klepněte na tlačítko Nemovitosti z kontextové nabídky.

8. V Nemovitosti dialogové okno, musíte nakonfigurovat následujícím způsobem.

8.1) Přejít na Hodnota karta;
8.2) V Počáteční hodnota zkontrolujte část Nastavte počáteční hodnotu tohoto pole na krabice;
8.3) Zadejte číslo “2” do textového pole;
8.4) Klikněte na OK knoflík. Viz screenshot:

9. cvaknutí Publikovat > Publikovat formulář jako na stuze.

10. V Publikovat formulář jako dialogové okno, musíte:

10.1) Vyberte cílovou složku pro vlastní formulář v Koukni do rozbalovací seznam. Zde vybírám Knihovna osobních formulářů položka;
10.2) Pojmenujte vlastní formulář v Zobrazovaný název Textové pole;
10.3) Klikněte na Publikovat knoflík. Viz screenshot:

11. Zavřete okno Schůzka bez uložení.

12. Od nynějška, když potřebujete vytvořit celodenní událost se stavem Zobrazit jako výchozí na Zaneprázdněn, přesuňte se na Kalendář zobrazit a kliknout Domů > Novinky > Vlastní formuláře > „Název vlastního formuláře“.

Poznámka: Chcete-li vytvořit celodenní událost s výchozím stavem Zobrazit jako „Zdarma“, postupujte jako obvykle: klikněte Domů > Nová událost, a potom zkontrolujte Celodenní akce pole v Jmenování okno.


Změňte výchozí nastavení celodenní události na obsazeno pomocí VBA

Výše uvedená metoda má příliš mnoho kroků. Pokud vždy potřebujete vytvořit celodenní událost s výchozím stavem Zobrazit jako „Zaneprázdněno“, následující kód VBA vám může pomoci to snadno provést.

1. Spusťte svůj Outlook a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte na Project1 > Objekty Microsoft Outlook > ThisOutlookSession k otevření ThisOutlookSession (Kód) okno a potom zkopírujte následující kód do tohoto okna kódu.

Kód VBA: Nastavte výchozí stav celodenní události na „Zaneprázdněn“

Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem

Private Sub Application_Startup()
'Updated by Extendoffice 20220413
  Set GInspectors = Application.Inspectors
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  Select Case Inspector.CurrentItem.Class
    Case olAppointment
      Set GAppointmentItem = Inspector.CurrentItem
  End Select
End Sub

Private Sub GAppointmentItem_Open(Cancel As Boolean)
  Select Case GAppointmentItem.AllDayEvent
    Case True
      GAppointmentItem.BusyStatus = olBusy
  End Select
End Sub

Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
  If Name = "AllDayEvent" Then
    Select Case GAppointmentItem.AllDayEvent
      Case True
        GAppointmentItem.BusyStatus = olBusy
    End Select
  End If
End Sub

3. Uložte kód VBA a restartujte aplikaci Outlook.

Od této chvíle, po převedení schůzky nebo schůzky na celodenní událost, Zobrazit jako stav se zobrazí jako "Zaneprázdněný" ve výchozím stavu.


Související články

Změnit výchozí čas připomenutí celodenních událostí v aplikaci Outlook
Obvykle je výchozí čas připomenutí celodenní události v aplikaci Outlook 18/2007 2010 hodin a 0.5 dne v aplikaci Outlook 2013. Výchozí čas připomenutí celodenní události nemusí někdy souhlasit s vaším pracovním plánem. Zde představíme způsob, jak změnit výchozí čas připomenutí celodenních událostí v aplikaci Microsoft Outlook.

Změňte výchozí dobu sledování v aplikaci Outlook
Jak víme, když v Outlooku přidáme připomínku sledování, výchozí doba sledování je 4:30 (nebo jiná doba v závislosti na vaší pracovní době). Možná však budete chtít změnit výchozí dobu sledování a nechat si ji připomenout na začátku pracovní doby, například v 9:00. V tomto článku vám ukážu, jak změnit výchozí dobu sledování v aplikaci Outlook.

Změnit výchozí umístění archivu v aplikaci Outlook
Ve výchozím nastavení má Outlook výchozí umístění pro archivní soubory. Kromě výchozího umístění můžete pro archivní soubory nastavit vlastní umístění archivu. V tomto kurzu vám ukážeme, jak podrobně změnit výchozí umístění archivu v Outlooku.

Změnit výchozí umístění pro ukládání přílohy v Outlooku
Už jste se unavili hledáním umístění přílohy, které jste zadali při každém spuštění aplikace Outlook? V tomto kurzu vám ukážeme, jak změnit výchozí umístění přílohy. Poté se zadaná složka pro ukládání příloh automaticky otevře při každém uložení příloh, i když restartujete aplikaci Outlook.

Změňte výchozí čas pro zpoždění doručení v aplikaci Outlook
Tento kurz poskytuje kód VBA, který vám pomůže změnit výchozí čas pro možnost zpoždění doručení v aplikaci Outlook.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ahoj,
ani mě to nefunguje. Nevyskočila ani žádná zpráva.
Office Microsoft 365 apps pro velké organizace.

Můžu to nějak trasovat nebo najít někde v logu?

Dík Honza
This comment was minimized by the moderator on the site
Hi,
I've tried the second technique but it did not work. Do you know whether this still works on the newest Outlook version ?
Best,
Ben
This comment was minimized by the moderator on the site
Hi Benjamin Djian,
Yes the code still works on the newest Outlook version? Did you get any error prompt?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations