Ajd' da odgovorim, mozda jos nekog zanima:
Code:
uses shellapi;
...
procedure...
var ceo_mail,adresa,naslov,tekst:string;
begin
//setujemo sve
adresa:='
[email protected]';
naslov:='Email iz programa';
tekst:='Ovaj email je generisan programom '+form1.caption; //samo primer
//napravimo... nesto
ceo_mail:='mailto:'+adresa+'?subject='+naslov+'&body='+tekst;
//i... posaljemo (otvorimo u outlook-u)
ShellExecute (Handle, 'open', pchar(ceo_mail) ,'', '', SW_SHOW);
//kraj
end;