Email mit Anhang über ShellExecute erstellen

[SiD]

Hallo Leute,

jetzt habe ich es doch noch im Forum gefunden

Delphi-Quellcode:

procedure TForm1.Button9Click(Sender: TObject); 
var 
  s: String; 
begin  
s := 'mailto:[e-mail]?Subject=Thanks&Body=hallo&Attach=""C:\boot.ini""'; 
ShellExecute(handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL); 
end;

Gruß
Sid