Read Mail When Arrived?

[Capri]

Hello,,

I found a solution arrived mail but also need how to read arrieved mail

this code found on microsoft website

#DEFINE VFPCOM_CLSID 'VFPCOM.COMUTIL'
#DEFINE OUTLOOK_CLSID 'OUTLOOK.APPLICATION'
public goVFPCOM, loOutlook , goLink
goVFPCOM = create(VFPCOM_CLSID)
loOutlook = create(OUTLOOK_CLSID)

goLink = create('OutlookApplicationEvents')
goVFPCOM.BindEvents(loOutlook, goLink)

DEFINE CLASS OutlookApplicationEvents AS custom

PROCEDURE ItemSend(Item,Cancel)
MessageBox('User Sent an Item')
ENDPROC

PROCEDURE NewMail
MessageBox('New Mail Has Arrived')
ENDPROC

PROCEDURE OptionsPagesAdd(Pages)
MessageBox('Options Page Added')
ENDPROC

PROCEDURE Quit
MessageBox('Outlook Shut Down')
ENDPROC

PROCEDURE Reminder(Item)
MessageBox('Reminder Fired')
ENDPROC

PROCEDURE Startup
MessageBox('Outlook Started')
ENDPROC

ENDDEFINE

Thanks in advance