Crear correo electrónico a través de VFP 6.0

En fox 9 (debería funcionar en fox6) uso la siguiente función:
LPARAMETERS lcDestinatario as string,lcSubject as String,lcHtmlBody as string,lcAttachment as string
LOCAL oMail as Object
LOCAL lcUSerNAme,lcPass,lcServerIP,lnPort,lcSend as String
lcUserName="[email protected]"
lcPass="userpassword"
lcServerIP="IPNumber"
lnPort=25
    oMail=CREATEOBJECT("cdo.message")            
    oMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = lcServerIP
    oMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = lnPort
    oMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=lcUserName
    oMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=lcPass
    oMail.Configuration.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oMail.Configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=.T.
    oMail.from=lcUserName
    oMail.ReplyTo=lcUserName
    oMail.to=lcDestinatario
    oMail.Subject=lcSubject
    oMail.htmlBody=lcHtmlBody
    *-* Recorrer elementos de array para incluir adjuntos
    *.*
    OMail. Configuration. Fields.update             
    oMail. Send

Amigo me queda una duda, ¿esto es lo envía utilizando el outlook? ¿O través de que?, no veo en la rutina outlook por ningún lado. Gracias

No uso Outlook sino el objecto CDO. Message. Con eso es suficiente.
http://www.paulsadowski.com/wsh/cdo.htm
La otra forma es automatizanco Outlook, pero todos los usuarios que usen tu programa deberán tener una licencia para usarlo ($$$).

Ok hermano mio deja probarlo y te aviso. Gracias por ahora porque a lo mejor sigo molestando je je DLB