2019-04-17 21:07:33 +02:00
|
|
|
This is a tiny wrapper over the `mail` application to allow
|
|
|
|
|
sending emails from within RETRO.
|
|
|
|
|
|
|
|
|
|
~~~
|
|
|
|
|
:mail:send (sss-)
|
2019-05-03 16:51:35 +02:00
|
|
|
swap 'mail_-s_"%s"_%s s:format file:W unix:popen
|
2019-04-17 21:07:33 +02:00
|
|
|
swap [ over file:write ] s:for-each unix:pclose ;
|
|
|
|
|
~~~
|
|
|
|
|
|
|
|
|
|
# Send a Message
|
|
|
|
|
|
|
|
|
|
```
|
|
|
|
|
(Body 'This_is_a_test\n\nSending_mail_via_RETRO s:format
|
|
|
|
|
(Subject 'Test
|
|
|
|
|
(Recipient 'crc@forthworks.com
|
|
|
|
|
mail:send
|
|
|
|
|
```
|
