RE: [Declude.JunkMail] Perl Script & Spamheaders

[Colbeck, Andrew]

Title: Message

John, I'm thinking that you're not qualifying the right hand side of the message-id variable as text.

 

Let me put that another way: why are you not putting quotes around the parts that are text, and why are you only escaping the @ sign and not the hyphen or the GT and LT signs?

 

What happens if you change the line, on a trial basis, to:

 

    Message-ID =>  '<[EMAIL PROTECTED]>',

(I don't know if any of the text inside the quotes actually needs to be escaped, but it seems worth mentioning.)

 

Andrew 8)

-----Original Message-----
From: John Olden [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 28, 2004 7:53 AM
To: [EMAIL PROTECTED]
Subject: [Declude.JunkMail] Perl Script & Spamheaders

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