Script Library: 1213 scripts
 

simple-mail.r

REBOL [ Title: "Simple Emailer" Date: 24-Oct-1998 File: %simple-mail.r Author: "Klaus Matuschek" Purpose: { A simple script, which uses the e-mail capabilities of REBOL in a more user friendly way. } Comment: { The user's email address must have been set up in %user.r prior to running this script. i.e. system/user/email: %user--domain--com system/schemes/default/host: "mail.domain.com" } library: [ level: 'intermediate platform: none type: none domain: [email other-net] tested-under: none support: none license: none see-also: none ] ] ; Input e-mail-adress request receiver: to-email ask "Mail To: " ; Input subject if (subj: ask "Subject: ") = "" [subj: "(None)"] ; Set up header information header: make system/standard/email [from: system/user/email subject: subj] print "Edit Message Text (End it by typing . in a seperated line.) :" message: "" temp: "" ; Reads the mail-message from the standard-input until the user quits ; with the specified ending sequence while [not temp = "."][ temp: ask "> " append message temp append message newline ] remove/part tail message -2 ; last chance to quit your intention either (ask "^/Send mail (y/n)? ") = "y" [ print ["Sending mail to " receiver] send/header receiver message header ][ print "Sending cancelled !" ]
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (user:domain:com)