EMail mit Anhang verschicken

[s14]

probier's mal so:

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;