Hello
I have a fully working code but for some reason it still triggers the
err block. can someone tell me why. I get a msgbox with Error 0 in it.
i thoght that they get triggered only if there is a error.


Sub MovePastDate2Today()
On Error GoTo MovePastDate2Today_Error
Dim t As TaskItem
Set f =
Application.GetNamespace("MAPI").GetDefaultFolder( olFolderTasks)
strText = ""
For Each t In f.Items
If (t.DueDate Date And Not (t.Status = olTaskComplete)) Then
'strText = strText & (t.DueDate) & " "
t.DueDate = Date
t.Save

End If
Next

'MsgBox strText
'MsgBox Date




MovePastDate2Today_Error:
MsgBox "Error " & Err.Number & "(" & Err.Description & ")"




End Sub