Programa usando la Función ShellExecute

Codigo usando la Función ShellExecute para llamar al programa de correo predeterminado, el cual en mi caso es Mozilla-Mail.

Primero Declaro la Función en un Prg que he definido como Principal:

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, STRING cAction, STRING cFileName, ;
  STRING cParams, STRING cDir, INTEGER nShowWin

Luego en un botón de comando en un form, llamo a la función asi:

LOCAL dir1,correo
dir1 = ALLTRIM(Thisform.txtEmail.Value)
correo = "mailto:" + dir1
if not empty(dir1)
  ShellExecute(0,"open",correo,"","",1)
  ***//mozilla.exe -compose "to=foo@nowhere.net"//
else
  MESSAGEBOX("No hay Dirección de Correo",0,"E-mail")
endif

Espero que les sea de utilidad

Hasta pronto.

Josue Nahum Montufar