Danke vielmals. Hat geklappt mit %0D%0A!
Allerdings konnte ich die Parameter nicht in die Stringvariable packen, sondern musste sie in den PCHAR einfügen.
Siehe hier:
Code:
ShellExecute(Application.Handle, 'open',PCHAR('mailto:'+email+'?subject=TOM&body=Der Kunde %0D%0A'+kdaten+ ' '+edit1.text+' '+edit2.text+' wünscht eine telefonische Beratung.%0D%0A'+ 'Bitte beraten Sie zu folgenden Themen %0D%0A' +wunsch +'%0D%0A Bemerkungen: '+bemerkungen +'%0D%0A %0D%0A' + 'Meine Daten: %0D%0A Name: '+ kollege+'%0D%0A Personalnummer: '+persnr +'%0D%0A Rückrufnummer: '+ handy), nil, nil, SW_SHOW);
Nochmals vielen Dank!
@ DeddyH: Sehr gute Signatur!!
