[Mimedefang] quarantine and notify recipient

David F. Skoll dfs at roaringpenguin.com
Tue Jul 26 16:18:34 EDT 2005

Mark Coetser wrote:
> Thank you for the response you don't happen to have a sample/example of
> either Mail::Send or Mail::Sendmail that I could  use in my setup

MIMEDefang has a built-in function for sending mail:

send_mail('<address at of.sender>',
	  'Full Name of Sender',
          '<address at of.recipient>',


foreach my $recip (@Recipients) {
	send_mail('<annoyance at roaringpenguin.com>',
		  'Useless Notification Service',

		  "From: <annoyance\@roaringpenguin.com>\n" .
		  "To: $recip\n" .
		  "Subject: Annoying notification\n" .
		  "\n" .
		  "Hello.  This is an annoying notification!\n");



More information about the MIMEDefang mailing list