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);