I use Mail::Sender to do my bidding:
sub mailout {
$sender = new Mail::Sender;
$sender->Open({
smtp => $smtp,
skip_bad_recipients => 'true',
from => "foo\@bar.com",
fake_from => $from,
to => "subscribers\@bar.com",
bcc => $to,
encoding => "quoted-printable",
subject => $subject,
ctype => $htype,
headers => "Errors-To: errors@bar.com",
}) or usage(),
warn "Sender error: $sender, $Mail::Sender::Error!\n";
# body of email. USE Send only for plain/text messages
if ($htype eq "text"){
$sender->Send(@body)or usage(),
warn "Sender error: $sender, $Mail::Sender::Error!\n";
}else{
$sender->SendEnc(@body) or usage(),
warn "Sender error: $sender, $Mail::Sender::Error!\n";
}
# send email
$sender->Close
or usage(), warn "Sender error: $sender, $Mail::Sender::Error!\n";
}
|