UndermodTasks ()
Dunkel obj som anmärker
Dunkel theDate som stränger
Om ActiveExplorer.Selection.count = 0 går ut därefter suben
theDate = InputBox (”vad är den required deferrmenten daterar? ”)
Om inte IsDate (theDate) går ut därefter suben
För varje obj i ActiveExplorer.Selection
Om obj. Klassificera = olTask därefter
obj.DueDate = theDate
obj. Räddning
Avsluta om
Därefter
Avsluta suben
|