Rebol Programming/emailer

From Wikibooks, open books for an open world
< Rebol Programming
Jump to navigation Jump to search

USAGE:[edit | edit source]

EMAILER /to target /subject what 

DESCRIPTION:[edit | edit source]

Pops up a quick email sender.

EMAILER is a function value.

REFINEMENTS[edit | edit source]

  • /to -- Specify a target address
    • target -- (Type: string email)
  • /subject -- Specify a subject line
    • what -- (Type: string)

SOURCE CODE[edit | edit source]

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." 
    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]
    if to [f-to/text: copy target] 
    if subject [f-subject/text: copy what] 
    focus f-to 
    view/new/title lo "Emailer"