Uses
ShellAPI;
procedure TForm1.Button1Click(Sender:
TObject);
Var email,destinataire,sujet,messge:String;
begin
destinataire:='monemail@monemail.fr';
sujet:='Mon titre';
messge:='Mon message';
email:='mailto:'+destinataire+'?subject='+sujet+'&body='+message;
ShellExecute (Handle,'open',PChar(email),nil,nil,SW_SHOW);
end; |