Zeilenumbruch in String im ShellExecute

[dude85]

Hallo Liebe Leute,

mioch hat nach einigen Jahren das Programmier-Fieber wieder gepackt. Eigentlich auch erfolgreich, besonders auch durch dieses Forum, aber jetzt habe ich eine Frage, zu der ich nichts finden konnte.

Folgende Situation:

Ich möchte einen String mit ShellExecute an Outlook übergeben. Formatiert habe ich die Zeilenumbrüche mit #13#10.
Leider werden die Umbrüche aber nicht an Outlook weitergegeben.

Der String:

Code:

gesamt := 'Der Kunde '+kdaten+ ' '+edit1.text+' '+edit2.text+' wünscht eine telefonische Beratung.' +#13#10+ 'Bitte beraten Sie zu folgenden Themen '+#13#10 +wunsch  +#13#10+ 'Bemerkungen: '+bemerkungen +#13#10 +#13#10+ 'Meine Daten: ' +#13#10+'Name: '+ kollege+#13#10+ 'Personalnummer: '+persnr  +#13#10+ 'Rückrufnummer: '+ handy;

Wenn ich das ganze im Memo oder ShowMessage ausgebe, dann stimmt die Formatierung. Bei der Übergabe in den Outlook-Body, sind aber die Zeilenumbrüche weg :cry:

Hier die Übergabe:

Code:

shellExecute(Application.Handle, 'open', PCHAR('mailto:'+email+'?subject=TOM&body='+gesamt) , nil, nil, SW_SHOW);

Ich denke, dass liegt daran, dass ich PCHAR benutzt habe und deswegen die Formatierung nicht übernommen wird.
Wenn ihr eine Idee oder Alternative kennt, dann bitte her damit.

DANKE im Vorraus und
schöne Grüße aus Wuppertal.

Michael

[chaosben]

Hi Michael und ein herzliches Willkommen in der DP! :dp:

Wenn man diesem Beitrag glaubt, musst du anstelle der #13#10 %0D%0A nehmen.

[himitsu]

Jupp, einfach alles, was vom ASCII abweicht oder ein Steuerzeichen darstellt und besser auch noch das %, mit %{hex}{hex} ersetzen.
Das Leerzeichen besser als + anstatt %20.
#32 > c < #128

[DeddyH]

Vielleicht hilft das hier weiter: http://www.delphipraxis.net/159858-e...ooglemaps.html

[dude85]

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!! :-D

[DeddyH]

Danke :D. 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);