Když změníte datum zahájení úkolu v Outlooku, ve výchozím nastavení se automaticky změní i jeho datum splnění. Pokud se vám to nelíbí, můžete použít jeden ze dvou přístupů uvedených v tomto článku.
Možná jste zjistili, že datum splnění úkolu v Outlooku se liší v závislosti na datu zahájení. Konkrétněji řečeno, když změníte datum zahájení úkolu, změní se i jeho datum splnění. Mnoho uživatelů by nicméně chtělo ponechat datum splnění nezměněné, i když se datum zahájení změní. Proto si zde ukážeme dva způsoby, jak to udělat.

Metoda 1: Využijte klávesu „Shift“
- Nejprve spusťte aplikaci Outlook jako obvykle.
- Poté přepněte do oblasti „Úkoly“.
- Dále vyberte a otevřete úkol dvojitým kliknutím.
- Poté byste v následujícím okně Úkol měli kliknout na šipku dolů v poli „Termín splnění“.
- V rozbalovací nabídce „Výběr data“ podržte klávesu „Shift“ a mezitím klikněte na datum, které chcete použít jako nové datum zahájení.
- Po výběru takového data výše uvedeným způsobem uvidíte, že pole „Datum zahájení“ bylo změněno na nové datum.
- Nakonec můžete tento úkol uložit stisknutím tlačítka „Uložit a zavřít“.
To znamená, že pokaždé, když chcete při změně data zahájení zachovat datum splatnosti, musíte stisknout klávesu „Shift“. Může to být trochu zdlouhavé. Proto vás zde naučíme ještě jeden efektivnější způsob.
Metoda 2: Použít Outlook VBA
- Chcete-li začít, na hlavní obrazovce Outlooku stiskněte klávesy „Alt + F11“.
- V následujícím okně „Microsoft Visual Basic for Applications“ najdete a otevřete projekt „ThisOutlookSession“.
- Dále byste měli zkopírovat následující kód VBA do tohoto 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
- Později byste měli tento kód digitálně podepsat.
- Poté byste měli změnit nastavení maker aplikace Outlook, abyste povolili podepsané projekty VBA.
- Nakonec můžete restartovat Outlook a aktivovat nové makro.
- Odteď se pokaždé, když změníte datum zahájení úkolu, datum splnění se nezmění.
Záchrana ohrožených souborů PST
Jak všichni víme, Outlook je zranitelný vůči poškození. Naštěstí je aplikace Outlook vybavena vestavěným nástrojem pro opravy - scanpst. Abych byl upřímný, v mnoha případech to nemůže mít účinky. Kvalitní a zkušený nástroj pro opravy třetích stran je tedy nezbytností, jako je DataNumen Outlook Repair
Ú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ě zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com

