REBOL [ Title: "Email Ping (Confirmation)" Date: 10-Sep-1999 File: %mailping.r Purpose: "Confirm certain email that contains a key word." Note: { Autoreplies to email when subject line contains a special word. Does not remove the mail from the server. 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 ] ] magic-word: "confirm!" ; must appear somewhere on subject line inbox: open load %popspec.r ;file contains POP email box info forall inbox [ mail: import-email first inbox if find mail/subject magic-word [ send first mail/from join "Got it." [ newline "Got your email: " mail/subject newline ] ] ] close inbox