Bounce Email

[Nils M. Lunde]

Hi!

I'm trying to do the following:

-Extract an Email from a mailbox using grepmail
-Bounce this Email to a different address

I thought that this would be an easy thing to do, but I still haven't manage
to do it the way I want to.

The problem is MIME encoded messages.
I've tried several approches, but I always get the same result: the Email
Content-type is always text/plain after I've sent it.
It seems like some of the header is stripped off.

Here is my code:

############### ############### ############
....
use MIME::Parser;
use MIME::Entity;
use MIME::Head;

my $sCmd = "grepmail -iu -Y \'(\^From:)\' $sMyAddress $sPathToMailbox ;
my @EmailLines = `$sCmd`;

my $oParser = new MIME::Parser;
my $oEmail = $oParser->parse_data(\@E mailLines);
$oEmail->head->replace("To" , $sBounceAddress );

my $sRes = $oEmail->smtpsend;
....
############### ############### ############

Does anyone have a suggestion on how I can forward the mail without
stripping the header?

Thanx in advance!

-Nils Magne Lunde

[Nils M. Lunde]

Never mind, I managed to fix it myself.

-Nils Magne

"Nils M. Lunde" <ni****@options .no.nospam> wrote in message
news:RP******** ************@gi ganews.com...

Hi!

I'm trying to do the following:

-Extract an Email from a mailbox using grepmail
-Bounce this Email to a different address

I thought that this would be an easy thing to do, but I still haven't manage to do it the way I want to.

The problem is MIME encoded messages.
I've tried several approches, but I always get the same result: the Email
Content-type is always text/plain after I've sent it.
It seems like some of the header is stripped off.

Here is my code:

############### ############### ############
...
use MIME::Parser;
use MIME::Entity;
use MIME::Head;

my $sCmd = "grepmail -iu -Y \'(\^From:)\' $sMyAddress $sPathToMailbox ;
my @EmailLines = `$sCmd`;

my $oParser = new MIME::Parser;
my $oEmail = $oParser->parse_data(\@E mailLines);
$oEmail->head->replace("To" , $sBounceAddress );

my $sRes = $oEmail->smtpsend;
...
############### ############### ############

Does anyone have a suggestion on how I can forward the mail without
stripping the header?

Thanx in advance!

-Nils Magne Lunde