VormodTasks ()
Schwaches obj als Gegenstand
Schwaches theDate als Schnur
Wenn ActiveExplorer.Selection.count = 0 dann Unterseeboot herausnehmen
theDate = InputBox („was ist das erforderliche deferrment Datum? ")
Wenn nicht IsDate (theDate) dann Unterseeboot herausnehmen
Für jedes obj in ActiveExplorer.Selection
Wenn obj. Kategorie = olTask dann
obj.DueDate = theDate
obj. Speichern
Beenden wenn
Zunächst
Enden-Unterseeboot
|