$entity would be the single email with lots of attachments - each one is an individual email (possibly with attachments)- phew!

So... I think you want to add something like this:

foreach my $email ($entity->parts())
{
   # $email is now a MIME::Entity
   # I.e. one of the original emails that
   # was mistakenly combined into one.

   # either print the email, or capture it with
   # one of the "as_string" methods and use OLE
   # to stuff it back into Outlook.
   $email->print(\*STDOUT)
}
[download]

This is all from memory - I wrote a mail filter last week to do some virus scanning. But might help.

Error: Keyboard not attached. Press F1 to continue.