;; ================================================= ;; Script: formletter.r ;; downloaded from: www.REBOL.org ;; on: 28-Mar-2024 ;; at: 20:59:28.650423 UTC ;; owner: carl [script library member who can update ;; this script] ;; ================================================= ;; =============================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would ;; not be munged ;; =============================================== REBOL [ Title: "Form Letter" Date: 10-Sep-1999 File: %formletter.r Purpose: "Example of how to create an email form letter." library: [ level: 'intermediate platform: none type: none domain: [x-file email other-net] tested-under: none support: none license: none see-also: none ] ] Database: [ "Ms." "Ronda" "Adnor" "Hawaii" %ra--sanfran--dom "Ms." "Mari" "Iram" "New York" %iram--miami--dom "Mr." "Bill" "Clint" "Alcatraz" %billc--bwh--dom ] foreach [Mr-Ms first-name last-name place email] database [ letter: rejoin [ "Dear " Mr-Ms " " last-name {, We are interested in hearing more about your upcoming vacation plans to } place { and what we can do to make your trip more enjoyable. } first-name {, you know you can contact us anytime to find out more about the details of your travel package. Have fun in } place {! Bob "Jetman" Bobbob Quantity Travel, Inc. } ] print ["Sending to:" first-name last-name] send email letter ]