Hi Andy,
Thanks for sharing that code. I guess we had a similar task. I will have to clean up mine a little and publish it here, maybe we can discuss some pros and cons.
One thing I added with MIME::Lite:
BEGIN { $MIME::Lite::VANILLA = 1; }
my $xmailer = "my personal mailer";
...
my $msg = MIME::Lite->new(
From => $from,
To => $mail->{to},
Cc => $mail->{cc},
Bcc => $bcc,
Type => 'multipart/mixed',
Subject => $subject,
"X-Mailer" => $xmailer,
"Return-Path" => $return_path,
);
Otherwise there is the MIME::Lite header, as far as I remember I enhanced the "I am not spam" thing.
On the other hand your way there probably won´t be the MIME::Lite header.
Regards
Niko
Thanks for sharing that code. I guess we had a similar task. I will have to clean up mine a little and publish it here, maybe we can discuss some pros and cons.
One thing I added with MIME::Lite:
Code:
use MIME::Lite; BEGIN { $MIME::Lite::VANILLA = 1; }
my $xmailer = "my personal mailer";
...
my $msg = MIME::Lite->new(
From => $from,
To => $mail->{to},
Cc => $mail->{cc},
Bcc => $bcc,
Type => 'multipart/mixed',
Subject => $subject,
"X-Mailer" => $xmailer,
"Return-Path" => $return_path,
);
Otherwise there is the MIME::Lite header, as far as I remember I enhanced the "I am not spam" thing.
On the other hand your way there probably won´t be the MIME::Lite header.
Regards
Niko