کدی برای ارسال ایمیل

uses ShellAPI;

procedure InviaEMail ( const Indirizzo, IndirizziCC, Oggetto, Testo: string);
var
Comando: String;
begin
Comando := 'mailto:' + Indirizzo + '?subject=' + Oggetto + '&cc=' + IndirizziCC + '&body=' + Testo;
if (ShellExecute(0, 'open', PChar(Comando), '', '', SW_SHOWNORMAL) <= 32)
then
ShowMessage('Errore nell''invio della e-mail.');
end;
//////////

procedure TForm1.Button1Click(Sender: TObject);
begin
InviaEMail ( '[e-mail]', '[e-mail]', 'Oggetto della e-mail', 'Testo della e-mail');
end;