411 REFERENCE · Wikibooks
Rebol Programming/emailer
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
EMAILER /to target /subject what
DESCRIPTION:
Pops up a quick email sender.
EMAILER is a function value.
REFINEMENTS
/to -- Specify a target address
target -- (Type: string email)
/subject -- Specify a subject line
what -- (Type: string)
SOURCE CODE
emailer: func [
"Pops up a quick email sender."
/to "Specify a target address"
target [string! email!]
/subject "Specify a subject line"
what [string!]
/local req
][
if block? lo [
lo: layout lo
center-face lo
lo/color: 160.180.160
]
if not alive? [
alert "Email cannot be sent when offline."
exit
]
if not all [system/user/email system/schemes/default/host] [
req: request [{Your email settings are missing from the network preferences.
^-^-^-^-Set them now?} "Setup" "Ignore" "Cancel"]
if none? req [exit]
if all [req value? 'set-user] [set-user]
]
clear-all
if to [f-to/text: copy target]
if subject [f-subject/text: copy what]
focus f-to
view/new/title lo "Emailer"
]