zeilenumbruch beim email senden

[Tigermoon]

Habe ein ganz kleine problem und komme ned drauf

versende mit diesem code eine email

Delphi-Quellcode:

procedure THauptmenu.als_mail_sendenClick(Sender: TObject);
begin

ShellExecute(Application.Handle, 'open', PChar('mailto:[e-mail]?subject=Wochenbericht ' +
             Hauptmenu.kalender_woche.Text + '/' + Hauptmenu.jahr_auswahl.Text + '&body=' +
             'Montag: ' + montag_text.Text +
             'Dienstag: ' + dienstag_text.Text +
             'Mittwoch: ' + mittwoch_text.Text +
             'Donnerstag: ' + donnerstag_text.Text +
             'Freitag: ' + freitag_text.Text ), nil, nil, sw_ShowNormal);

end;

ich möchte jetzt das das was in outlook eingefügt wird in mehreren zeilen steht und ned alles hintereinander in einer zeile

kann mir jamend helfen

wäre super lieb

[Treffnix]

+ #13#10 fügt ein CRLF ein

Wenns HTML ist

Delphi-Quellcode:

+ '
'

[Tigermoon]

habe es folgender masen gelöst
DANKE

Delphi-Quellcode:

    ShellExecute(Application.Handle, 'open', PChar('mailto:'+adressen+'?subject=Wochenbericht ' +
             Hauptmenu.kalender_woche.Text + '/' + Hauptmenu.jahr_auswahl.Text + '&body=' +
             'Montag: ' + montag_text.Text + '%0D%0A' +
             'Dienstag: ' + dienstag_text.Text + '%0D%0A' +
             'Mittwoch: ' + mittwoch_text.Text + '%0D%0A' +
             'Donnerstag: ' + donnerstag_text.Text + '%0D%0A' +
             'Freitag: ' + freitag_text.Text + '%0D%0A' ), nil, nil, sw_ShowNormal);