REBOL [
    Title: "Email Ping (Confirmation)"
    File:  %mailping.r
    Date:  10-Sep-1999
    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.
    }
    Category: [email net 2] 
]

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