Zeilenumbruch in String im ShellExecute

[DeddyH]

Danke . An Deiner Stelle würde ich aber eine Zwischenvariable einbauen, um die Übersicht zu erhöhen, ggf. sogar noch mit einem konstanten Formatstring.

Delphi-Quellcode:

const 
  Mailtext = 'mailto:%s?subject=TOM&body=Der Kunde %%0D%%0A%s %s %s wünscht eine telefonische Beratung.' +
'%%0D%%0ABitte beraten Sie zu folgenden Themen %%0D%%0A%s%%0D%%0A Bemerkungen: %s%%0D%%0A %%0D%%0A' + 
'Meine Daten: %%0D%%0A Name: %s%%0D%%0A Personalnummer: %s%%0D%%0A Rückrufnummer: %s';
var
  Mailprogram: string;
begin
  Mailprogram := Format(Mailtext, [email, kdaten, edit1.text, edit2.text, wunsch, bemerkungen, kollege, persnr, handy]);
  ShellExecute(Application.Handle, 'open',PCHAR(Mailprogram), nil, nil, SW_SHOW);