>Esta funcion que me envias lo hace a traves de MAPI el cual ya lo he utilizado y funciona pero depernde del cliente que tenga instalado.
>Ahora estoy porbando con SHELLEXECUTE() que utiliza el API de windows y me levanta cualquier navegador quel el cliente tenga instalado, lo que no encuetro como hacer es adjuntarle un archivo, siempre utilizando SHELLEXECUTE()

Vuelvo a lo mismo. No das ejemplo de la función que estas usando. ShellExecute() ejecuta funciones, y o programas. No es - en si - una funcion de email. Por ello, depende de que programa llamas y que cliente tiene por defecto (como MAPI).

Otras formas:
Puedes usar CDO
http://fox.wikis.com/wc.dll?Wiki~AutomatedEmail~VFP
http://fox.wikis.com/wc.dll?Wiki~MethodsToSendReportByEmail

Ejemplo de CDOSYS: (viene con Win2K y WinXP, CDONTS viene con NT).

#DEFINE cdoSendUsingPort 2
#DEFINE smtpserverport 25
#DEFINE smtpserver "mail.yourmailserver.net"

LOCAL loMsg
loMsg = NEWOBJECT("CDO.Message")
WITH loMsg
   .FROM = "moehoward@3stooges.com"
   .TO = "larryfine@3stooges.com"
   .BCC = ""
   .Subject = "Mi Asunto"
   .TextBody = "Mensaje va aqui"
   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/sendusing").VALUE = cdoSendUsingPort
   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserver").VALUE = smtpserver
   .Configuration.FIELDS("http://schemas.microsoft.com/cdo/configuration/smtpserverport").VALUE = smtpserverport
   .Configuration.FIELDS.UPDATE
   .SEND
ENDWITH
loMsg = NULL

Ejemplo de SMTP, con la clase wwIPStuff de Rick Strahl,
(http://www.west-wind.com/wwIPStuff.asp) para email (hace mucho mas que eso):

Set Procedure to wwUtils
Set Classlib to wwIPStuff.Vcx
local loSMTP
loSMTP = CreateObject("wwIPStuff")
loSMTP.cMailServer = "mail.yourmailserver.net"
loSMTP.cSenderEmail = "moehoward@3stooges.com"
loSMTP.cSenderName = "Moe Howard"
loSMTP.cRecipient = "larryfine@3stooges.com,groucho@marxbros.com"
loSMTP.cCCList = "chico@marxbros.com,harpo@marxbros.com"
loSMTP.cSubject = "Mi Asunto"
loSMTP.cMessage = "Mensaje va aqui"
loSMTP.cAttachment="c:\config.sys,c:\temp\vfpprog.prg"
loSMTP.SendMailAsync()

HTH