REBOL Programming/send

USAGE:

SEND address message /only /header header-obj /attach files /subject subj /show 

DESCRIPTION:

Send a message to an address (or block of addresses)

SEND is a function value.

ARGUMENTS

• address -- An address or block of addresses (Type: email block)
• message -- Text of message. First line is subject. (Type: any)

REFINEMENTS

• /only -- Send only one message to multiple addresses
• /header -- Supply your own custom header
  • header-obj -- The header to use (Type: object)
• /attach -- Attach file, files, or [.. [filename data]]
  • files -- The files to attach to the message (Type: file block)
• /subject -- Set the subject of the message
  • subj -- The subject line (Type: any)
• /show -- Show all recipients in the TO field

SOURCE CODE

send: func [
    {Send a message to an address (or block of addresses)} 
    address [email! block!] "An address or block of addresses" 
    message "Text of message. First line is subject." 
    /only "Send only one message to multiple addresses" 
    /header "Supply your own custom header" 
    header-obj [object!] "The header to use" 
    /attach "Attach file, files, or [.. [filename data]]" 
    files [file! block!] "The files to attach to the message" 
    /subject "Set the subject of the message" 
    subj "The subject line" 
    /show "Show all recipients in the TO field" 
    /local smtp-port boundary make-boundary tmp from
][
    make-boundary: does [] 
    if file? files [files: reduce [files]] 
    if email? address [address: reduce [address]] 
    message: either string? message [copy message] [mold message] 
    if not header [
        header-obj: make system/standard/email [
            subject: any [subj copy/part message any [find message newline 50]]
        ]
    ] 
    if subject [header-obj/subject: subj] 
    either none? header-obj/from [
        if none? header-obj/from: from: system/user/email [net-error "Email header not set: no from address"] 
        if all [string? system/user/name not empty? system/user/name] [
            header-obj/from: rejoin [system/user/name " <" from ">"]
        ]
    ] [
        from: header-obj/from
    ] 
    if none? header-obj/to [
        header-obj/to: tmp: make string! 20 
        if show [
            foreach email address [repend tmp [email ", "]] 
            clear back back tail tmp
        ]
    ] 
    if none? header-obj/date [header-obj/date: to-idate now] 
    if attach [
        boundary: rejoin ["--__REBOL--" system/product "--" system/version "--" checksum form now/precise "__"] 
        header-obj/MIME-Version: "1.0" 
        header-obj/content-type: join "multipart/mixed; boundary=" [{"} skip boundary 2 {"}] 
        message: build-attach-body message files boundary
    ] 
    smtp-port: open [scheme: 'esmtp] 
    either only [
        address: copy address 
        remove-each value address [not email? :value] 
        message: head insert insert tail net-utils/export header-obj newline message 
        insert smtp-port reduce [from address message]
    ] [
        foreach addr address [
            if email? addr [
                if not show [insert clear header-obj/to addr] 
                tmp: head insert insert tail net-utils/export header-obj newline message 
                insert smtp-port reduce [from reduce [addr] tmp]
            ]
        ]
    ] 
    close smtp-port
]