Ako automaticky nastaviť dnešný deň ako dátum začiatku novej úlohy v programe Outlook

Zdieľať teraz:

Ak pri vytváraní novej úlohy v programe Outlook často potrebujete nastaviť dnešný dátum ako jej začiatočný dátum, mali by ste chcieť, aby ju program Outlook automaticky splnil. Tento článok sa zameria na túto požiadavku a poskytne jednoduchý spôsob.

V predvolenom nastavení sa po kliknutí na tlačidlo Vytvoriť novú úlohu v programe Outlook zobrazí úloha s položkou „Dátum začiatku“ nastavenou na hodnotu „Žiadne“, ako je znázornené na nasledujúcom obrázku. Často ste však zvyknutí nastavovať dátum začiatku na aktuálny dátum. Preto musíte dátum v poli „Dátum začiatku“ zadať alebo vybrať manuálne. V takomto prípade môžete dúfať, že Outlook automaticky nastaví dnešný deň ako dátum začiatku novej úlohy. Hoci takáto priama funkcia neexistuje, stále ju môžete získať pomocou zdieľaného kódu VBA uvedeného nižšie. Ak nie ste oboznámení s VBA, pozrite si „Ako spustiť kód VBA v programe Outlook”Zatiaľ.

Predvolený dátum začiatku „Žiadne“

Automatické prednastavenie dnešného dňa ako dátumu začiatku novej úlohy

  1. Najskôr spustite aplikáciu Outlook.
  2. Potom stlačte kombináciu klávesov „Alt + F11“ a spustite editor Outlook VBA.
  3. Ďalej skopírujte nasledujúci kód do projektu „ThisOutlookSession“.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

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

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

Kód VBA - Automatické prednastavenie dnešného dňa ako dátumu začiatku novej úlohy

  1. Potom presuňte kurzor na prvú podprogram „Application_Startup“.
  2. Neskôr stlačte klávesové tlačidlo „F5“.
  3. Odvtedy, vždy keď vytvoríte novú úlohu, Outlook automaticky nastaví dátum začiatku na aktuálny dátum, teda dnes, ako je znázornené na nasledujúcom obrázku.Automatické nastavenie dnešného dňa ako dátumu začiatku

Dajte si pozor na škodlivé makrá v programe Outlook

Aj keď makro VBA prináša používateľom veľa pohodlia a možností, vedie tiež k mnohým potenciálnym rizikám. Napríklad ak nastavíte nastavenia makra tak, aby umožňovali všetky makrá bez upozornenia, keď do vašej poštovej schránky dorazí e-mail so škodlivými makrami a otvoríte jeho vložené odkazy, váš dátový súbor programu Outlook býva napadnutý vírusmi. V tom čase musíte vírusy zabiť a pokúsiť sa Oprava OutlookVäčšinou si vstavaný nástroj Scanpst s touto úlohou neporadí. Mali by ste preto použiť robustnejší nástroj, ako napríklad DataNumen Outlook Repair.

Ú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 zotavenie sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.