Sub modTasks ()
Тусклое obj как предмет
Тусклое theDate как шнур
Если ActiveExplorer.Selection.count = 0 после этого выходят подводная лодка
theDate = InputBox («будет необходимый датой deferrment? ")
Если не IsDate (theDate) после этого выходит подводная лодка
Для каждого obj в ActiveExplorer.Selection
Если obj. Тип = olTask после этого
obj.DueDate = theDate
obj. Сохраньте
Закончитесь если
Затем
Подводная лодка конца
|