Script Library: 1238 scripts
 

mailautoreply.r

REBOL [ Title: "Email Auto-reply" Date: 10-Sep-1999 File: %mailautoreply.r Purpose: { This example confirms email received from "friends" only. All others will be ignored. } Note: { Will not reply to email from itself. Does not remove the mail from the server. You can use wildcards in the email names. See the popspec.r file for examples of how to setup your mailbox connection. } library: [ level: 'intermediate platform: none type: none domain: [email other-net] tested-under: none support: none license: none see-also: none ] ] friends: [%elvis--earth--net %jobs--apple--com %*--rebol--*] inbox: open load %popspec.r ;file contains POP email box info forall inbox [ mail: import-email message: first inbox foreach friend friends [ if all [ mail/from/1 <> system/user/email find/match/any mail/from/1 friend ][ send first mail/from join "Got your email." [ newline "With subject: " mail/subject newline ] ] ] ] close inbox
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.
  • (*:rebol:*)
  • (jobs:apple:com)
  • (elvis:earth:net)