Sub modTasks()
Dim obj As Object
Dim theDate As String
If ActiveExplorer.Selection.count = 0 Then Exit Sub
theDate = InputBox("WHat is the required deferrment date? ")
If Not IsDate(theDate) Then Exit Sub
For Each obj In ActiveExplorer.Selection
If obj.Class = olTask Then
obj.DueDate = theDate
obj.Save
End If
Next
End Sub
|