mason-email ( body content-type subject -- )

Vocabulary

mason.email

Inputs

body	an object
content-type	an object
subject	an object

Outputs

None

Definition

USING: accessors continuations debugger io mason.common
mason.config namespaces smtp ;

IN: mason.email

: mason-email ( body content-type subject -- )
    '[
        <email> builder-from get >>from
        builder-recipients get >>to _ >>body _ >>content-type
        _ >>subject send-email
    ] [ "E-MAILING FAILED:" print-timestamp error. flush ]
    recover ;