¿Cómo puedo mandar un mail a una persona tomando la dirección una variable usando Visual Fox Pro?

Prueba con esta rutina... a mi me funciona perfectamente.
Local pcPara, pcAsunto, pcCuerpo, paFichEnviar, plMostrarDialogo
IF EMPTY(pcPara)
pcPara = "direccion@de_correo.es"
ENDIF
IF EMPTY(pcAsunto)
pcAsunto = "<Asunto>"
ENDIF
IF EMPTY(pcCuerpo)
pcCuerpo = ""
ENDIF
IF EMPTY(paFichEnviar)
paFichEnviar = ""
ENDIF
LOCAL oform
oform = CreateObject("form")
oform.addobject("Session1","olecontrol","MSMAPI.mapiSession")
IF TYPE('oform.Session1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.addobject("Message1","olecontrol","MSMAPI.mapiMessages")
IF TYPE('oform.Message1') <> 'O'
MESSAGEBOX('No se ha podido instanciar la aplicación de correo.', 64, 'Atención')
RELEASE oform
RETURN .F.
ENDIF
oform.Session1.LogonUI = .t.
*- Si no se pone la propiedad a .F. y en OUTLOOK está puesto trabajar sin conexión
*- se cuelga
oform.Session1.DownloadMail=.f.
oform.Session1.signon
oform.Message1.sessionid = oform.Session1.sessionid
oform.Message1.compose
oform.Message1.RecipDisplayName = pcPara
oform.Message1.msgsubject = pcAsunto
oform.Message1.msgnotetext = pcCuerpo
*- Si no es un array, lo crea
IF TYPE('paFichEnviar[1]') = 'U'
LOCAL lcFileEnviar
lcFileEnviar = paFichEnviar
DIMENSION paFichEnviar(1)
paFichEnviar(1) = lcFileEnviar
ENDIF
LOCAL lnContFiles
lnContFiles = 1
FOR lnCount = 1 TO ALEN(paFichEnviar,1)
*- Si existen los archivos
IF FILE(paFichEnviar(lnContFiles))
oform.Message1.AttachmentIndex = lnContFiles - 1
oform.Message1.AttachmentPathName = paFichEnviar(lnContFiles)
oform.Message1.AttachmentPosition = lnContFiles - 1
lnContFiles = lnContFiles + 1
ENDIF
ENDFOR
oform.Message1.send(plMostrarDialogo)
oform.Session1.signoff
release oform
------------ OOo -----------
En la variable "pcPara" debes poner el la dirección de correo del destinatario
En la variable "pcAsunto" debes poner el Asunto del mensaje (si lo deseas)
En la variable "pcCuerpo" debes poner el texto del mensaje (si lo deseas)
en la variable "paFichEnviar" debes poner el nombre del archivo adjunto
Un saludo
Fernando Alvarez
La Pampa - Argentina
www.rfalvarez.com.ar

¿Hola com andas? Yo acá cansado. Mira yo creo un form, le pongo un botón y 4 text, después en e evento click le pongo el código que me dijiste y arriba le pongo esto haciendo referencia a las variables, le pongo esto:
pcparra = thisform.text1.Value
pcasunto = thisform.text2.Value
pcCuerpo = thisform.text3.Value
paFichEnviar = thisform.text4.Value
por ejemplo le pongo mi dere de mail que es [email protected] y no me llega nada, estoy haciendo algo mal?
Muchas gracias