Perl to read EMBEDDED Outlook email?

[maylin]

Hope some experts can help me on this -

If you have an Outlook email that includes an attached email, how can
you use Perl to read/parse that embedded email? I tried to use
WIN32::OLE, and I know you can get the mail body this way:
$mailbody=$folder->Items->Item($i)->Body;

Now this email also has an attached email and I need to get its mail
body. So I used following line to get the attached email:
my $attach = $folder->Items->Item($i)->Attachments();

After this line runs the $attach is that embedded email (and I can
save the $attach to a text file), but how to open it to get its email
body?

I tried following but none of them worked:

$mailbody=$attach->Body; # not working
$mailbody=$attach->Items->Item(1)->Body; # not working
$mailbody = $folder->Items->Item($i)->Attachments()->Body; # not
working

It'll be highly appreciated if somebody tells me where is wrong or
where to find some sample codes.

 

[Peter J. Holzer]

Hope some experts can help me on this -

If you have an Outlook email that includes an attached email, how can
you use Perl to read/parse that embedded email? I tried to use
WIN32::OLE, and I know you can get the mail body this way:
$mailbody=$folder->Items->Item($i)->Body;

Can you get at the complete rfc5322-conforming text of the email?
If you can, simply parse it with MIME:arser and extract the parts you
need from the MIME::Entity object it returns.

hp