Versuch mal: Function GetAsURLEncodedString(extends s as string) As string//in einem modul, z.B "StringExtensions" dim result as string=EncodeURLComponent(s) Return ConvertEncoding(result,Encodings.SystemDefault) End Function
showURL "mailto:"; + address + "?subject=" + subject.GetAsURLEncodedString + "&body=" + body.GetAsURLEncodedString Maximilian Tyrtania http://www.contactking.de Am 27.09.2011 um 09:44 schrieb Stefan Sicurella: > Hi, > > ich steh hier grad total auf dem Schlauch… > > body = "<feld1>"+chr(13)+text_kurz.text+chr(13)+"</feld1>"+chr(13) > body = body+ chr(13) > +"<feld2>"+chr(13)+text_bezeichnung.text+chr(13)+"</feld2>"+chr(13) > body = body+ chr(13) > +"<feld3>"+chr(13)+text_deutscher_name.text+chr(13)+"</feld3>"+chr(13) > body = body+ chr(13) > +"<feld4>"+chr(13)+text_gewinnung.text+chr(13)+"</feld4>"+chr(13) > body = body+ chr(13) > +"<feld5>"+chr(13)+text_wichtige_hinweise.text+chr(13)+"</feld5>"+chr(13) > body = body+ chr(13) > +"<feld6>"+chr(13)+text_indikationen.text+chr(13)+"</feld6>"+chr(13) > showURL "mailto:"; + address + "?subject=" + subject + "&body=" + body > > Im Mail-Fenster werden alle chr(13) einfach ignoriert, der gesamte Text ist > in einer Zeile… > > Was mach ich denn hier falsch? was hab ich übersehen? > > Gruß > > Stefan
