[Mimedefang] quarantine and notify recipient

[David F. Skoll]

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>',
          $body_of_email_including_headers);

Example:

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

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

Regards,

David.