The following changes should fix the problem.

* Replace in the GetMailObject method
THIS.oInbox=THIS.GetFolder(lcRequiredFolder)
* With
IF UPPER(lcRequiredFolder) = UPPER("Inbox")
	THIS.oInbox=THIS.oNameSpace.GetDefaultFolder(6)
ELSE
	THIS.oInbox=THIS.GetFolder(lcRequiredFolder)
ENDIF	

There maybe better ways to do that but it did work for me so I'm not going to spend more time on it.

>Hi Sergey,
>In your responce to ERIN
>
>You can start with 'MAPI Mail Class' file#9524 from Download section.
>Outlook 2000 installed
>
>I can't start the test form because of code in class cusmail readmail