Help for this page

Select Code to Download

Select or download this

  use Win32::OLE;
  use Win32::OLE::Const '.*Outlook'; # load the relevant constants
...
    map  { $_->CurrentItem } # get the MailItem object
    @inspectors;

Select or download this

  my @mail_items = 
    grep { $_->Class == olMail }
    map  { $_->CurrentItem } # get the MailItem object
    grep { $_->Caption eq 'Untitled - Message (Plain Text)' }
    @inspectors;