Label to send an email  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 29/01/00

Tip accessed 469 times

 


Put this in the OnClick of any Label:


 procedure TForm1.Label1Click(Sender: TObject);
 begin
  ShellExecute(GetDesktopWindow(),
                 nil,
                 pChar('mailto:'+
                 TLabel(Sender).Caption),
                 nil,
                 nil,
                 SW_SHOWNORMAL);
 end;



And add 'ShellApi' in the uses of the form...




Updated at 29/01/2000 (Uses missing...)