View Single Post
  #2  
Old December 14th 07, 09:07 PM posted to microsoft.public.outlook.program_vba
Eric Legault [MVP - Outlook]
external usenet poster
 
Posts: 830
Default How do I change all past due tasks to today's date?

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.DefaultIt emType
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

--
Eric Legault - Outlook MVP, MCDBA, MCTS (SharePoint programming, etc.)
Try Picture Attachments Wizard for Outlook:
http://www.collaborativeinnovations.ca
Blog: http://blogs.officezealot.com/legault/


"Mark" wrote:

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?

Ads