in reply to Gmailize your mbox

This is a very handy snippet.

I've modified it ever so slightly:

#!/usr/bin/perl use strict; use Email::Folder; use Mail::Mailer; my $email = ''; my $tag = 'Mail Tag'; my $folder = Email::Folder->new($ARGV[0] || die "No mbox supplied\n\nU +sage: $0 mboxname\n"); foreach ($folder->messages){ print $_->header("Subject").$/; my $mailer = new Mail::Mailer; $mailer->open({ To => $email, From => $_->header("From"), Subject => "$tag " . $_->header("Subject"), }); print $mailer $_->body; $mailer->close; print "Email with Subject: " . $_->header("Subject") . " sent\n"; }

Thanks a lot!


Walking the road to enlightenment... I found a penguin and a camel on the way.....
Fancy a Just ask!!!

Replies are listed 'Best First'.
Re^2: Gmailize your mbox
by bfdi533 (Friar) on Jul 31, 2006 at 15:34 UTC

    This looks to be a very useful piece of code but I have tried it on a test message and it fails to pring the message body.

    Here is the test email that I tried it on (email address, servers and IPs cleaned but otherwise the same):

    From Mon Jul 31 15:05:58 2006 Received: from ([]) by exchange.domain ([]) via Exchange Front-End Server mail.domain ([]) with Microsoft Exchange Server HTTP-DAV ; Mon, 31 +Jul 2006 15:05:58 +0000 Received: from laptop by mail.domain; 31 Jul 2006 10:05:57 -0500 Subject: test for email parser From: username@domain Reply-To: username@domain To: username Content-Type: text/plain Organization: Organization Date: Mon, 31 Jul 2006 10:05:57 -0500 Message-Id: <1154358357.11169.0.camel@localhost> Mime-Version: 1.0 X-Mailer: Evolution 2.6.2 X-Evolution-Source: exchange://user@mail.domain/ Content-Transfer-Encoding: 8bit test entry

    Any ideas why the message body is not being picked up on this one?