2 způsoby, jak změnit výchozí dobu trvání schůzky a schůzky v aplikaci Outlook

Ve výchozím nastavení je při vytváření události nebo schůzky výchozí doba trvání nastavena na půl hodiny. Pokud to chcete změnit, můžete se obrátit na 2 metody uvedené v tomto článku.

Jak vidíte, při vytváření nové schůzky nebo jednání se její délka automaticky nastaví na 30 minut. Ve skutečnosti to však pro většinu uživatelů nevyhovuje. Mnoho lidí by si proto rádo změnilo výchozí délku schůzky a jednání podle svých vlastních preferencí. S ohledem na tento požadavek vám zde ukážeme 2 způsoby. Čtěte dále a seznamte se s nimi podrobněji.

Metoda 1: Změňte časové měřítko

1. Pro začátek spusťte Outlook.
2. Poté přejděte na podokno „Kalendář“ a otevřete požadovanou složku kalendáře.
3. Dále přejděte na kartu „Zobrazit“ a vyberte „Změnit zobrazení“ > „Kalendář“.
4. Následně klikněte na tlačítko „Zobrazit nastavení“.
5. Ve vyskakovacím dialogovém okně „Pokročilá nastavení zobrazení: Kalendář“ klikněte na tlačítko „Další nastavení“.
6. Potom v následujícím dialogovém okně můžete změnit časové měřítko. Vyberte časové období na základě požadovaného trvání. Zde je pouze 6 možností.
7. Poté kliknutím na několik tlačítek „OK“ zavřete všechna dialogová okna.
8. Od nynějška, když vytvoříte novou schůzku nebo schůzku, bude výchozí doba trvání stejná jako vámi vybrané časové měřítko.

Tento prostředek má však 2 největší nevýhody. Jedním z nich je, že máte na výběr pouze 6 možností. Délku nemůžete libovolně specifikovat. Druhým je, že to může fungovat pouze v zobrazení „Kalendář“. Pokud přejdete na jiné zobrazení, doba trvání se vrátí na půl hodiny. Proto přejděte k další metodě, která se může těchto nedostatků zbavit.

Metoda 2: Změna přes VBA

1. Nejprve stiskněte klávesová tlačítka „Alt + F11“ v okně aplikace Outlook.
2. Poté v dalším okně editoru VBA otevřete projekt „ThisOutlookSession“.
3. Dále do něj zkopírujte a vložte následující kódy VBA.

Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objAppointment As Outlook.AppointmentItem
 
Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'Set the default duration of new appointment
    If objAppointment.CreationTime = #1/1/4501# Then
       objAppointment.Duration = "50"
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'When you disable the "All Day Event"
    'Change the default duration of the current appointment
    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = False Then
          objAppointment.Duration = "50"
       End If
    End If
End Sub

4. Poté tento kód podepište.
5. Poté změňte nastavení maker tak, aby byla povolena digitálně podepsaná makra.
6. Nakonec restartujte Outlook, abyste aktivovali makro.
7. Poté bude doba trvání schůzky a schůzky nastavena na stejnou délku jako v kódech VBA, jako na následujícím obrázku.

Vyhněte se bolestivé ztrátě dat aplikace Outlook

Nikdo není ochoten trpět ztrátou dat PST aplikace Outlook. Pokud se tedy chcete zbavit frustrující ztráty dat PST, musíte provést 2 požadovaná opatření. Jedním z nich je konzistentní a aktuální PST zálohování dat. Druhým je získat renomovaný opravný nástroj, jako je např DataNumen Outlook Repair, které mohou opravit PST problémy efektivně.

Ú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ě poškození MDF a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com