modTasks secondari ()
Obj fioco come oggetto
theDate fioco come stringa
Se ActiveExplorer.Selection.count = 0 allora escono il sommergibile
theDate = InputBox (“che cosa è la data required di deferrment? ")
Se non IsDate (theDate) allora esce il sommergibile
Per ogni obj in ActiveExplorer.Selection
Se obj. Codice categoria = olTask allora
obj.DueDate = theDate
obj. Risparmiare
Concluder se
Dopo
Sommergibile dell'estremità
|