Keď zmeníte dátum začiatku úlohy v programe Outlook, predvolene sa automaticky zmení aj jej dátum dokončenia. Ak sa vám to nepáči, môžete použiť jeden z dvoch prístupov uvedených v tomto článku.
Možno ste zistili, že dátum dokončenia úlohy v programe Outlook sa líši v závislosti od dátumu začiatku. Konkrétnejšie, keď zmeníte dátum začiatku úlohy, zmení sa aj jej dátum dokončenia. Mnoho používateľov by však chcelo ponechať dátum dokončenia nezmenený, aj keď sa zmení dátum začiatku. Preto si tu predstavíme 2 spôsoby.

Metóda 1: Použite kláves „Shift“
- Najprv spustite aplikáciu Outlook ako obvykle.
- Potom prepnite do oblasti „Úlohy“.
- Ďalej vyberte a otvorte úlohu dvojitým kliknutím na ňu.
- Potom by ste mali v nasledujúcom okne úlohy kliknúť na šípku nadol v poli „Termín splnenia“.
- V kontextovom okne „Výber dátumu“ by ste mali podržať kláves „Shift“ a zároveň kliknúť na dátum, ktorý chcete použiť ako nový dátum začiatku.
- Po výbere takéhoto dátumu vyššie uvedeným spôsobom uvidíte, že pole „Dátum začiatku“ sa zmenilo na nový dátum.
- Nakoniec môžete túto úlohu uložiť kliknutím na tlačidlo „Uložiť a zavrieť“.
To znamená, že vždy, keď chcete zachovať dátum splatnosti pri zmene dátumu začiatku, musíte stlačiť kláves „Shift“. Môže to byť trochu zdĺhavé. Preto vás tu naučíme ďalší spôsob, ktorý je efektívnejší.
Metóda 2: Aplikácia Outlook VBA
- Ak chcete začať, na hlavnej obrazovke programu Outlook stlačte klávesy „Alt + F11“.
- V nasledujúcom okne „Microsoft Visual Basic for Applications“ nájdete a otvoríte projekt „ThisOutlookSession“.
- Ďalej by ste mali skopírovať nasledujúci kód VBA do tohto projektu.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem
Public dStartdate, dDueDate As Date
Private Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olTask Then
Set objTask = Inspector.CurrentItem
dStartdate = objTask.StartDate
dDueDate = objTask.DueDate
End If
End Sub
Private Sub objTask_PropertyChange(ByVal Name As String)
If Name = "StartDate" Then
If objTask.StartDate <> dStartdate And objTask.StartDate <= dDueDate And objTask.StartDate <> #1/1/4501# Then
objTask.DueDate = dDueDate
objTask.Save
End If
End If
End Sub
- Neskôr by ste mali tento kód digitálne podpísať.
- Potom by ste mali zmeniť nastavenie makra programu Outlook, aby ste povolili podpísané projekty VBA.
- Nakoniec môžete reštartovať Outlook, aby ste aktivovali nové makro.
- Odteraz sa pri každej zmene dátumu začiatku úlohy dátum dokončenia nezmení.
Záchrana kompromitovaných súborov PST
Ako všetci vieme, Outlook je zraniteľný voči korupcii. Našťastie je program Outlook vybavený vstavaným nástrojom na opravu - Scanpst. Úprimne povedané, v mnohých prípadoch nemôže mať účinky. Kvalitný a skúsený nástroj na opravu tretích strán je preto nevyhnutnosťou, ako napr 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 mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S

