FoxPro/Visual FoxPro - ayuda con recepcion de email

Hola amigos, alguien podria ayudarme con la recepcion de emails que tienen ficheros adjuntos mediante el mapi.ocx, no logro entender su funcionamiento, agradeceria que me envien un ejemplo si tuvieren a mi correo
Gracias de antemano

Fijate con esto:

loSession=CreateObject("MSMAPI.MAPISession")
loMessages=CreateObject("MSMAPI.MAPIMessages")

WITH loSession
.DownloadMail=.F.
.SignOn()
ENDWITH

WITH loMessages
.SessionID=loSession.SessionID

.Fetch()

i=.MsgCount-1

.MsgIndex=i

DO WHILE i<.MsgCount
lcArchivo=.AttachmentPathName

i=i+1
ENDDO
ENDWITH