Rebol Programming/emailer

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"
]