modTasks secundarios ()
Obj dévil como objeto
theDate dévil como secuencia
Si ActiveExplorer.Selection.count = 0 entonces salen el submarino
¿theDate = InputBox (“cuál es la fecha required del deferrment? ")
Si no IsDate (theDate) entonces sale el submarino
Para cada obj en ActiveExplorer.Selection
Si obj. Clase = olTask después
obj.DueDate = theDate
obj. Ahorrar
Terminar si
Después
Submarino del extremo
|