< Rebol Programming
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
]
This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.