#Get the input from the form. load_response # Define fairly-constants #This should be set to the username you want to send this mail to. #This should be the subject you want to see in your replies set subject "Example Mailer" #Print title and initial heading html "" html "Thank-you" html "Your email has been sent to $response(recipient).

" #now send mail to $response(recipient) set MAIL [open_outbound_mail $subject $response(recipient)] puts $MAIL "Sender Name: $response(name)" puts $MAIL "Sender Email: $response(email)" puts $MAIL "Sender Comments: $response(comments)" puts $MAIL " " puts $MAIL "Sender Host: $webenv(REMOTE_HOST)" puts $MAIL "Sender IP Address: $webenv(REMOTE_ADDR)" close $MAIL #Enter whatever you want to appear in the answer page #after the person hits send. Be sure you include html #tags. html "Return to the " html "" html "Demo Page.

"