John Olden wrote:
Any Perl savy people out there using the Mime::Lite module in any of their scripts figure out how to generate valid Message-IDs in mail sent from online forms?
I'm trying to get our forms to pass the "Spamheaders" test and this is a sticking point. I cannot find any information online on implementation. The Cpan manuals just list "message-id" once and it's in a list of items.
I've tried the following code but all I get is the automatically generated Imail message-id:
=======
sub smtp_mail {
MIME::Lite->send('smtp', "mail.mydomain.com");
$idnum = time();
$randnum = rand();
my $msg = MIME::Lite->new(
From => $def_from,
To => $def_to,
Cc => $def_cc,
Subject => $def_subject,
Message-ID => <[EMAIL PROTECTED]>,
Type => 'multipart/related'
);
$msg->attach(
Type => 'text/html',
Data => qq|
$TG{'MessageBody'}|
);
$msg->attach(
Type => 'text',
Path => $EmailTempFile,
);
$msg->send or die ("Error sending e-mail: $!");
}
=======
John Olden - Systems Administrator Champaign Park District
Like Andrew Colbeck said, the right hand side of Message-ID is a bad value. If you don't use double-quotes around that, then perl would be evaluating that as a filehandle, and either spitting out errors ( if you have strict and warnings turned on ) or returning undef, which is why I'm assuming Imail is doing it for you. That's my best guess. HTH.
Ryan
--- [This E-mail was scanned for viruses by Declude Virus (http://www.declude.com)]
--- This E-mail came from the Declude.JunkMail mailing list. To unsubscribe, just send an E-mail to [EMAIL PROTECTED], and type "unsubscribe Declude.JunkMail". The archives can be found at http://www.mail-archive.com.
