Re: TZF - Email from Delphi App

Eitan Gilboa <[email protected]> Thu, 18 Mar 2004 20:37:44 +0200

Newsgroups	gmane.comp.lang.delphi.topaz
Message-ID	<[email protected]>

Two methods I use:

---------------------
USES ShellAPI;
ShellExecute(Handle,
                 nil,
                 'mailto:[email protected]',
                 nil,nil,cmdshow);
---------------------------------------
procedure Form1.lblEMailClick(Sender: TObject);
var   pCh: PChar;
begin
  pCh := 'mailto:[email protected]?subject=Sound Developer - Help ';
  ShellExecute(0, 'open', pCh, nil, nil, SW_SHOWNORMAL);
end;
--------------------------------------

Best wishes,

Eitan. 
URL: http://perso.wanadoo.fr/eitang

--^----------------------------------------------------------------
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

For Topica's complete suite of email marketing solutions visit:
http://www.topica.com/?p=TEXFOOTER
--^----------------------------------------------------------------