[Mimedefang] quarantine and notify recipient

[Mark Coetser]

Thank you,

Mark Adrian Coetser
mark at bwbtrading.co.za, mark at thummb.com
http://www.bwbtrading.co.za http://www.thummb.com
cel: +27 83 296 1199
tel: +27 11 334 7779
 
-----Original Message-----
From: mimedefang-bounces at lists.roaringpenguin.com
[mailto:mimedefang-bounces at lists.roaringpenguin.com] On Behalf Of David F.
Skoll
Sent: 26 July 2005 10:19 PM
To: mimedefang at lists.roaringpenguin.com
Subject: Re: [Mimedefang] quarantine and notify recipient

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.
_______________________________________________
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list
MIMEDefang at lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang