How do I change all past due tasks to today's date?

  • Thread starter Thread starter Mark
  • Start date Start date
M

Mark

I have a large number of tasks that didn't get done on the assigned date. I
am looking for a way to change all of the past due due dates to today of some
other day in the future. Is there a way I can do this in Outlook 2007?
 
Sure can - run the macro below!

Sub DeferSelectedTasks()
On Error Resume Next

Dim objSel As Outlook.Selection
Dim objTask As Outlook.TaskItem
Dim dteDeferred As Date
Set objSel = Application.ActiveExplorer.Selection

If objSel.Count = 0 Then Exit Sub 'nothing selected
If Application.ActiveExplorer.CurrentFolder.DefaultItemType <>
olTaskItem Then Exit Sub 'wrong active folder type

dteDeferred = FormatDateTime(InputBox("Enter the date you would like to
change the Due Date to for the selected Task Items:" _
, "Change Due Date", Date), vbShortDate)

If Err.Number <> 0 Then
'bad date
Exit Sub
End If

For Each objTask In objSel
objTask.DueDate = dteDeferred
objTask.Save
Next

Set objSel = Nothing
Set objTask = Nothing
End Sub
 
Thank you for your prompt response. I copied your script into my Macro's
VBE. I then highlighted the tasks that needed a new due date. However, I
received the following error: Compile Error Syntax Error. This opened the VBE
and the first line, Sub DeferSelectedTasks(), is highlighted in yellow.

I'm new to VBA, and I'm not sure what the problem is. Can you help?

Many thanks.

Mark
 
Back
Top