Outlook MailTo Senden

[Velindos]

Hallo Leute,
habe mit einen Button für Mailto über Outlook eingerichtet. Dieser spricht folgende Funktion an:

Code: Alles auswählen

Procedure OutlookMailToSenden()
  Protected sMailAdd.s, sSubj.s ,sMsg.s , sCommand.s, Ansprache$
  sMailAdd.s =  GetGadgetText(#MailToFeld) ;"Info@MeinMail.de"
  sSubj.s =  GetGadgetText(#MailToBetrefffeld) ;Betreff
  Ansprache$="Sehr geehrte(r)"+ GetGadgetText(#MailToPerson)+","+#CRLF$+" "+ GetGadgetText(#MailToEditorGadgetTextFeld)
  sMsg.s  = Ansprache$ ;"Hallo, das ist eine Mail!"
  sCommand.s = "mailto:" +  sMailAdd + "&subject="+ sSubj + "&body="+sMsg; + Chr(34)
  RunProgram(sCommand)
EndProcedure

Nun das funzt ja ... aber er übernimmt keine Zeilenumbrüche aus meinem Editorgadget, sondern schreibt alles in einer Wurstm, wobei er Leerzeichen korrekt darstellt.

Jemand eine Ahnung'?


Gruss ... Velindos

[RSBasic]

Code: Alles auswählen

ReplaceString(GetGadgetText(#MailToEditorGadgetTextFeld), Chr(13), "%0A")

[NicTheQuick]

Code: Alles auswählen

Debug URLEncoder("Sehr geehrter Herr RSBasic," + #CRLF$ + "so geht es doch viel einfacher." + #CRLF$ + #CRLF$ + "Grüße," + #CRLF$ + "NicTheQuick")

[RSBasic]

Stimmt

[Velindos]

Hallo Leute,
besten DANK für die Lösungen, dass funzt!

Gruss ... Velindos