FoxPro/Visual FoxPro - Recibir E-mail

Hola a todos:
Necesito saber cuando me llegan nuevo e-mail. Pienso colocar un Timer, pero no se de que modo chequear la bandeja de entrada del Outlook.

Quien me pueda ayudar, mil gracias por adelantado.

Te envio algo a tu correo , mas o menos es algo asi...

objSession = CREATEOBJECT("mapi.session")
objSession.Logon("wesanto") &&aqui deberia ir tu nombre de cuenta

on error do fin && esto es para evitar el error que da al llegar al final

objInboxFolder = objSession.Inbox
objInMessages = objInboxFolder.Messages
objOneMsg = objInMessages.GetFirst
suma=0
do while type('objOneMsg')="O"
if objOneMsg.unread
MessageBox(objOneMsg.Text)
suma=suma+1
endif
objoneMsg = objInMessages.Getnext
enddo
messagebox("Sin leer "+str(suma,4)+" Mensajes")

objSession.Logoff
RELEASE objInboxFolder,objInMessages,objOneMsg

procedure fin
messagebox("Sin leer "+str(suma,4)+" Mensajes")
exit

Espero te sirva...