Bounce Email
From: Nils M. Lunde (nilsml_at_options.no.nospam)
Date: 07/12/04
- Previous message: Jürgen Exner: "Re: FileHandles to string"
- Next in thread: Nils M. Lunde: "Re: Bounce Email"
- Reply: Nils M. Lunde: "Re: Bounce Email"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Mon, 12 Jul 2004 10:32:01 +0200
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(\@EmailLines);
$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
- Previous message: Jürgen Exner: "Re: FileHandles to string"
- Next in thread: Nils M. Lunde: "Re: Bounce Email"
- Reply: Nils M. Lunde: "Re: Bounce Email"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
|
