Sub modTasks ()
Schemerige obj als Voorwerp
Schemerige theDate als Koord
Als ActiveExplorer.Selection.count = 0 dan Sub weggaan
theDate = InputBox („wat de vereiste deferrmentdatum is? “)
Als niet IsDate (theDate) dan Sub weggaat
Voor Elke obj in ActiveExplorer.Selection
Als obj. Klasse = olTask toen
obj.DueDate = theDate
obj. Sparen
Eind als
Daarna
Sub van het eind
|