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();
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'
);
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'}|
);
Type => 'text/html',
Data ="" qq|
$TG{'MessageBody'}|
);
$msg->attach(
Type => 'text',
Path => $EmailTempFile,
);
Type => 'text',
Path => $EmailTempFile,
);
$msg->send or die ("Error sending e-mail:
$!");
}
}
=======
John Olden - Systems Administrator
Champaign Park District
