Jump to content

Rebol Programming/resend

From Wikibooks, open books for an open world

USAGE:

[edit | edit source]
RESEND to from message 

DESCRIPTION:

[edit | edit source]

Relay a message

RESEND is a function value.

ARGUMENTS

[edit | edit source]
  • to -- (Type: any)
  • from -- (Type: any)
  • message -- (Type: any)

SOURCE CODE

[edit | edit source]
resend: func [
    "Relay a message" 
    to from message /local smtp-port
][
    smtp-port: open [scheme: 'esmtp] 
    insert smtp-port reduce [from reduce [to] message] 
    close smtp-port
]