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)

}