(send-email) ( headers email -- )

Vocabulary

smtp.private

Inputs

headers	an object
email	an object

Outputs

None

Definition

USING: accessors io.crlf io.sockets.secure kernel namespaces
sequences smtp ;

IN: smtp.private

: (send-email) ( headers email -- )
    [
        get-ok helo get-ok smtp-config get tls?>>
        [ start-tls get-ok send-secure-handshake helo get-ok ]
        when auth dup from>> extract-email mail-from
        get-ok dup to>> [ extract-email rcpt-to get-ok ] each
        dup cc>> [ extract-email rcpt-to get-ok ] each dup bcc>>
        [ extract-email rcpt-to get-ok ] each
        data get-ok swap write-headers crlf send-body
        get-ok quit get-ok
    ] with-smtp-connection ;