Jak nastavit výchozí čas zahájení a ukončení celodenních událostí na základě vaší pracovní doby v aplikaci Outlook

Ve výchozím nastavení nemůžete v Outlooku měnit čas začátku a konce celodenních událostí podle svých přání. V tomto článku se dozvíte, jak nastavit výchozí čas začátku a konce celodenních událostí podle vaší pracovní doby.

Jak vidíte, když v rámci schůzky povolíte možnost „Celodenní událost“, pole „Čas zahájení“ i „Čas ukončení“ budou šedá. V tomto případě to znamená, že je nemůžete změnit podle svých představ. Proto se s vámi v následujícím textu podělíme o metodu, jak nastavit výchozí čas zahájení a ukončení celodenních událostí na základě vaší pracovní doby v Outlooku.

Nastavení výchozího času zahájení a ukončení celodenních událostí podle pracovní doby

1. Nejprve spusťte program Outlook.
2. Poté, co se dostanete na hlavní obrazovku aplikace Outlook, můžete stisknout tlačítka „Alt + F11“.
3. Následně získáte přístup do okna editoru Outlook VBA.
4. V aktuálním okně „Microsoft Visual Basic for Applications“ musíte otevřít okno projektu „ThisOutlookSession“.
5. Potom zkopírujte následující kód VBA do tohoto projektu.

Public WithEvents objInspectors As Outlook.Inspectors
Public 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 Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim dOccuringDate As Date

    If Name = "AllDayEvent" Then
       If objAppointment.AllDayEvent = True Then
          dOccuringDate = Format(objAppointment.Start, "Short Date")
 
          'Change the Start and End Time as per Working Hours
          With objAppointment
               .AllDayEvent = False
               .Start = dOccuringDate & " 9:00:00 AM"
               .End = dOccuringDate & " 6:00:00 PM"
          End With
       End If
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    If objAppointment.AllDayEvent = True Then
       dOccuringDate = Format(objAppointment.Start, "Short Date")
 
       With objAppointment
            .AllDayEvent = False
            .Start = dOccuringDate & " 9:00:00 AM"
            .End = dOccuringDate & " 6:00:00 PM"
       End With
    End If
End Sub

6. Poté musíte tento kód podepsat. Klikněte na „Nástroje“> „Podpis“.
7. V následném dialogovém okně přiřaďte digitální certifikát novému projektu VBA podle pokynů na obrazovce.
8. Později byste měli změnit nastavení maker aplikace Outlook a povolit digitálně podepsaná makra.
9. Nakonec můžete restartovat aplikaci Outlook, abyste toto makro aktivovali.
10. Odteď se pokaždé, když v Outlooku povolíte možnost „Celodenní událost“, čas zahájení a ukončení schůzky změní na vaši pracovní dobu, jako na následujícím snímku obrazovky:

Načíst vzácná data ze kompromitovaného souboru aplikace Outlook

Přestože se Outlook chlubí několika různými funkcemi, neznamená to, že je zcela bezchybný. Stále se může poškodit v důsledku různých faktorů, jako jsou viry přenášené e -maily, nesprávné zacházení s lidmi atd. Proto kromě pravidelného zálohování dat PST raději připravte poblíž výkonný nástroj pro opravu PST, například DataNumen Outlook Repair. To může opravit PST problémy v krátkém čase.

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