411 REFERENCE · Wikibooks
Rebol Programming/resend
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
RESEND to from message
DESCRIPTION:
Relay a message
RESEND is a function value.
ARGUMENTS
to -- (Type: any)
from -- (Type: any)
message -- (Type: any)
SOURCE CODE
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
]