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