modTasks secundários ()
Obj não ofuscante como o objeto
theDate não ofuscante como a corda
Se ActiveExplorer.Selection.count = 0 retiram então o submarino
theDate = InputBox (“que é a data required do deferrment? ")
Se não IsDate (theDate) retira então o submarino
Para cada obj em ActiveExplorer.Selection
Se obj. Classe = olTask então
obj.DueDate = theDate
obj. Conservar
Terminar se
Em seguida
Submarino da extremidade
|