Hi!
So könnte es gehen, aber getestet habe ich es nicht!!
Code:
var
Form1: TForm1;
Empfaenger, Betreff, Text, Attachment: String;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Empfaenger:=Edit1.Text;
Betreff:=Edit2.Text;
Text:=Memo1.Text;
Attachment:=OpenDialog1.FileName;
ShellExecute(
Handle, 'open', PChar('mailto:'+Empfaenger+'?subject='+Betreff+'&Body='+Text+'&Attachment="'+Attachment+'"'), nil, nil, SW_SHOW);
end;
[Edit]Attachment geht doch nicht, SORRY![/Edit]
Gruß Matze