REBOL [ Title: "Sends Email via CGI Form" Date: 20-Jul-1999 File: %cgiemailer.r Purpose: "Uses a Web form to send an email message." library: [ level: 'intermediate platform: none type: none domain: [cgi email] tested-under: none support: none license: none see-also: none ] Version: 1.0.0 Author: "Anonymous" ] print "Content-Type: text/html^/" ;-- Required Page Header print "


" 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 ""