sub or function not defined. not sure what to do to fix it.

[Dickery1]

get the following error and am stuck, compile error
sub or function not defined. not sure what to do to fix it.

Sub MovePastDate2Today()
Dim t As TaskItem
Set f =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks)
strText
For Each t In f.Items
If (t.DueDate < DateAdd("d", 2, Now)) Then
strText = strText & (t.t.DueDate)


End


MsgBox strText


Next


On Error GoTo MovePastDate2Today_Error


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


End Sub

 

[Tony Jollans]

I'm not sure what to do to fix it, either.

strText

is, presumably, the line that causes the problem. What do you think it
should do?

 

[Andy Pope]

Hi,

The error is caused by the strText line. Perhaps you meant to set an initial
value for the variable.
Also your End statement should probably be End If

Cheers
Andy