My response to to the NQL affair:

REBOL [
  file: %NQL-Bye.r
  purpose: "Sends message to all of NQLi staff."
]

my-email-address: ask "Enter your email address: "
my-name: ask "Enter your name/signature: "

nql-addresses: [
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
]

message: rejoin [
{Re: Unsolicited Email

Dear NQLi,
Please do not send unsolicited emails to my address }
my-email-address
{.  Please do not share or rent any information associated with my email
address, }
{and remove it from your database.

Thank you for your prompt compliance,

} my-name
]

foreach address nql-addresses [
  either error? try [ send address message ] [
    print [ "Error notifying" address ]
  ] [
    print ["Notified" address]
  ]
]

confirm "Notification completed."


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to