Ako nastaviť predvolené Start a čas ukončenia celodenných udalostí na základe vašej pracovnej doby v programe Outlook

V predvolenom nastavení nemáte povolené meniť start a čas ukončenia celodenných udalostí podľa vášho želania v Outlooku. Teraz vám tento článok ukáže, ako nastaviť predvolené start a čas ukončenia celodenných udalostí podľa vašej pracovnej doby.

Ako vidíte, keď v schôdzke povolíte možnosť „Celodenná udalosť“, zobrazí sa „StarPolia „Čas“ a „Čas ukončenia“ budú sivé. V tomto scenári to znamená, že nemáte povolenie meniť si ich podľa svojich predstáv. Preto vám v nasledujúcich častiach zdieľame spôsob nastavenia predvolených start a čas ukončenia celodenných udalostí na základe vašej pracovnej doby v programe Outlook.

Nastavte predvolené Start a čas ukončenia celodenných udalostí na základe vašej pracovnej doby v programe Outlook

Nastavte predvolené Start a čas ukončenia celodenných udalostí podľa pracovnej doby

  1. K start s, 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.
Verejné WithEvents objInspektory ako Outlook.Inspektory Verejné WithEvents objAppointment ako Outlook.AppointmentItem Súkromná čiastková aplikácia_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, „Krátky dátum“) 'Zmeňte Starta konečný čas podľa pracovnej doby s objAppointment .AllDayEvent = False .Start = dOccuringDate & "9:00:00 AM" .End = dOccuringDate & "6:00:00 PM" Koniec Koniec Ak Koniec Ak Koniec Sub Sub Súkromné ​​Sub objAppointment_Open (Zrušiť ako boolovské) Ak objAppointment.AllDayEvent = Pravda Potom dOccuringDate = Formát (objAppointment.Start, „Krátky dátum“) S objAppointment .AllDayEvent = False .Start = dOccuringDate & "9:00:00 AM" .End = dOccuringDate & "6:00:00 PM" Koniec Koniec Ak Koniec Sub

Kód VBA - nastavte predvolené Start a čas ukončenia celodenných udalostí na základe vašej pracovnej doby

  1. Potom musíte tento kód podpísať. Kliknite na „Nástroje“> „Podpis“.
  2. V nasledujúcom dialógovom okne podľa pokynov na obrazovke priraďte digitálny certifikát k novému projektu VBA.
  3. Neskôr by ste mali zmeniť nastavenie makier programu Outlook tak, aby umožňovali digitálne podpísané makrá.
  4. Nakoniec môžete restarsvoju aplikáciu Outlook aktivovať toto makro.
  5. Odteraz zakaždým, keď v schôdzke programu Outlook povolíte možnosť „Celodenná udalosť“, starČas ukončenia sa zmení na vašu pracovnú dobu, ako na nasledujúcom obrázku:Start Čas a čas konca sa zmenili podľa pracovných hodín

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

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *