mailto: mit Variable im Body

[Satty67]

für Format müsste %0D%0A nach %%0D%%0A entschärft werden.

Das gleich wie oben, nur ausgelagert und wollte es nicht wegwerfen

Delphi-Quellcode:

procedure SendBugReport(sMailAdresse, sSubject, sVersion, sErrorMsg : String);
var
  ExecStr : String;
begin
  ExecStr := Format('mailto:%s?subject=%s&body=Version: %s %%0D%%0A%s',
             [sMailAdresse, sSubject, sVersion, sErrorMsg]);

  ShellExecute(0,'open', PChar(ExecStr), NIL, NIL, SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendBugReport('[e-mail]', 'BugReport',
                '1.11', 'Fehler im Programm'); 
end;