PureBoard

Verfasst: **12.08.2015 11:54**

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

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

Verfasst: **12.08.2015 12:00**

Code: Alles auswählen

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

Verfasst: **12.08.2015 12:05**

Code: Alles auswählen

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

Verfasst: **12.08.2015 12:18**

Stimmt

Verfasst: **12.08.2015 14:29**

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

Gruss ... Velindos

PureBoard

Outlook MailTo Senden

Outlook MailTo Senden

Re: Outlook MailTo Senden

Re: Outlook MailTo Senden

Re: Outlook MailTo Senden

Re: Outlook MailTo Senden