http://www.ml-consult.co.uk/foxst-22.htm

Dated February 2002


>Hi all,
>
>Just discovered a usage for ShellExecute to open the default email application. I don't know if somebody else already did or not, just thought I'd share. It's really short so didn't bother to add to the download section.
>
>

>EmailByShell("mailto:somebody@somewhere.com?subject=ShellExecute in VFP&body=I just discovered this and thought you might like it.")
>
>FUNCTION EmailByShell
>	LPARAMETERS lpcMailTo
>	IF VARTYPE(m.lpcMailTo)="C" AND ;
>		NOT EMPTY(m.lpcMailTo) ;
>	THEN
>		DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
>		    INTEGER hwnd, ;
>		    STRING lpVerb, ;
>		    STRING lpFile, ;
>		    STRING lpParameters, ;
>		    STRING lpDirectory, ;
>		    LONG nShowCmd
>		RETURN Shellexecute(0,"open",m.lpcMailTo,"","",1)
>	ENDIF
>ENDFUNC && EmailByShell
>