if ( my $outlook = Win32::OLE->GetActiveObject('Outlook.Application'))# connect to outlook application
   {
      if (defined ($outlook->ActiveInspector()))
      {
         my $activeEmail= $outlook->ActiveInspector()->{CurrentItem};
         if ($activeEmail->{Class}==olMail) # if we're dealing with an email item
         {
            my $emailProperties;
            $emailProperties->{Recipients}	=$activeEmail->{Recipients};
            $emailProperties->{ReplyRecipients}	=$activeEmail->{ReplyRecipients}->ResolveAll();
         }
      }
   }