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"; }
Neil Watson
watson-wilson.ca
In reply to Re: Send HTML mail to Outlook
by neilwatson
in thread Send HTML mail to Outlook
by cosmicsoup
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |