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('<[EMAIL PROTECTED]>',
'Full Name of Sender',
'<[EMAIL PROTECTED]>',
$body_of_email_including_headers);
Example:
foreach my $recip (@Recipients) {
send_mail('<[EMAIL PROTECTED]>',
'Useless Notification Service',
$recip,
"From: <[EMAIL PROTECTED]>\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
[email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
