External mail send [All OS]

[minimy]

Greetings!
Simple way to send mail using your own mail manager client.

Code: Select all

Procedure MailTo(address.s, subject.s, body.s)
;open your mail manager
  Protected ch.s="mailto:"+
                 address+
                 "?&subject="+ReplaceString(subject," ","%20")+
                 "&body="+ReplaceString(ReplaceString(body," ","%20"),Chr(13),"%0D%0A")
  RunProgram(ch)
EndProcedure

[vwidmer]

doesnt seem to work on my system..

Linux 4.9.35-1-MANJARO

[Little_man]

Changed code:

Code: Select all

Procedure MailTo(address.s, subject.s, body.s)
;open your mail manager
  Protected ch.s="mailto:"+
                 address+
                 "?subject="+ ReplaceString(subject," ","%20")+
                   ^
                    
                 "&body=" + ReplaceString(ReplaceString(body, " ","%20"), Chr(13), "%0D%0A")
  RunProgram(ch)
EndProcedure