This is the entire method from the OUTLOOKMAIL class. The error occurs on the line that starts with lcSubject=THIS.oInbox....

This problem occurs on an XP machine which may or may not have SP2, but certainly is running OUTLOOK 2002 or 2003. I can run this code fine on an XP machine that uses OUTLOOK 2000.

LPARAMETERS lnMessageNumber

LOCAL lcSubject, ;
	  lnOldIndex

IF TYPE("THIS.oInbox")='U'
	THIS.GetMailObject("Inbox")
ENDIF

IF THIS.nCurrentMessageNumber<1 OR THIS.nCurrentMessageNumber>THIS.oInbox.Items.Count
	THIS.nCurrentMessageNumber=THIS.oInbox.Items.Count
ENDIF
lcSubject=THIS.oInbox.Items[THIS.nCurrentMessageNumber].Subject

IF NOT EMPTY(lnMessageNumber)
	lcSubject=NULL
	IF lnMessageNumber<=THIS.oInbox.Items.Count
		lcSubject=THIS.oInbox.Items[lnMessageNumber].Subject
	ENDIF
ENDIF

RETURN lcSubject