Ako nastaviť predvolený čas začiatku a konca celodenných udalostí na základe pracovnej doby v programe Outlook

V predvolenom nastavení nemáte povolené meniť čas začiatku a konca celodenných udalostí podľa vlastných potrieb v programe Outlook. V tomto článku vám ukážeme, ako nastaviť predvolený čas začiatku a konca celodenných udalostí podľa pracovnej doby.

Ako vidíte, keď v rámci schôdzky povolíte možnosť „Celodenná udalosť“, polia „Čas začiatku“ aj „Čas ukončenia“ budú sivé. V tomto prípade to znamená, že ich nemôžete zmeniť podľa svojich predstáv. Preto sa s vami v nasledujúcom texte podelíme o metódu na nastavenie predvoleného času začiatku a ukončenia udalostí celého dňa na základe vášho pracovného času v programe Outlook.

Nastavenie predvoleného času začiatku a ukončenia celodenných udalostí podľa pracovnej doby

1. Najprv spustite program Outlook.
2. Po prechode na hlavnú obrazovku Outlooku môžete stlačiť klávesové skratky „Alt + F11“.
3. Následne získate prístup do okna editora Outlook VBA.
4. V aktuálnom okne „Microsoft Visual Basic for Applications“ musíte otvoriť okno projektu „ThisOutlookSession“.
5. Potom skopírujte nasledujúci kód VBA do tohto 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. Potom musíte tento kód podpísať. Kliknite na „Nástroje“> „Podpis“.
7. V nasledujúcom dialógovom okne podľa pokynov na obrazovke priraďte digitálny certifikát k novému projektu VBA.
8. Neskôr by ste mali zmeniť nastavenie makier programu Outlook tak, aby umožňovali digitálne podpísané makrá.
9. Nakoniec môžete reštartovať aplikáciu Outlook, aby ste toto makro aktivovali.
10. Odteraz sa pri každej aktivácii možnosti „Celodenná udalosť“ v rámci schôdzky v programe Outlook zmení čas začiatku a ukončenia schôdzky na váš pracovný čas, ako je to na nasledujúcej snímke obrazovky:

Načítajte vzácne údaje zo súboru kompromitovaného programu Outlook

Aj keď sa Outlook môže pochváliť niekoľkými rôznymi funkciami, neznamená to, že je úplne bezchybný. Stále sa môže poškodiť v dôsledku rôznych faktorov, ako sú vírusy prenášané e-mailom, nesprávna manipulácia s ľuďmi atď. Preto okrem pravidelného zálohovania údajov PST radšej pripravte v blízkosti silný externý nástroj na opravu PST, ako je napr DataNumen Outlook Repair, Môže opraviť PST problémy v krátkom čase.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane mdf opraviť a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S