#!rebol -cs
REBOL [
Title: "Sends Email via CGI Form"
Date: 20-July-1999
File: %cgiemailer.r
Purpose: {
Uses a Web form to send an email message.
}
Category: [cgi email markup net 3]
]
print "Content-Type: text/html^/" ;-- Required Page Header
print "Results:
"
cgi: make system/standard/email decode-cgi system/options/cgi/query-string
either all [
email? try [cgi/to: load cgi/to]
email? try [cgi/from: load cgi/from]
][
print [ "Sending Email to" cgi/to ]
send/header cgi/to cgi/content cgi
][
print "Invalid email to or from address"
]
print ""