I am using MIME::Parser to parse email messages. The problem is that I can not get the electronic address (joe@somewhere.com) from the header, only "Joe". MIME::Parser does not seem to read the <joe@somewhere.com> part at all, how do I retrieve it?
The file, test.eml contains the following email:
Message-ID: <001401c237bd$138f72f0$0100007f@WM>
From: "Joe" <joe@somewhere.com>
To: "Mary" <mary@test.com>
Subject: Test
Date: Tue, 30 Jul 2002 13:34:33 +0200
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
test
The following code produces the dump at the bottom:
my $oParser = new MIME::Parser;
$oMail = $oParser->parse_open("test.eml");
print $oMail->print();
Message-ID: <001401c237bd$138f72f0$0100007f@WM>
From: "Joe"
To: "Mary"
Subject: Test
Date: Tue, 30 Jul 2002 13:34:33 +0200
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
test
Thank you for your help!