The following snippet allows a user to find thru perl a certain email that complies with user-specified search criteria. As the function is very generic, the user can search in any field he likes.
All he needs to do is call the function as follows : 
getInboxEmails('Subject'=>'','To'=>'','SenderName'=>'','Body'=>'zs');

[download]

He can specify which field to search, as long as they exist in the Outlook Object Model. As soon as a criterion isn't met in a field for a given mail then the search goes on to the next mail without reading that mail's other fields...
Please feel free to comment on the code - I new to the perl world and I may not be programming efficiently - I just enjoy OLE stuff !!!

Enjoy this bit, more to come, Foggy Bottoms.
sub getInboxEmails
# this method returns a list of all the mails contained in the Inbox f
+older
# that meet the search criteria specified in the filter
{
   my %filter = @_;

   if ( my $outlook = Win32::OLE->GetActiveObject('Outlook.Application
+'))# connect to outlook application
   {
      
      # connect and browse Inbox
      my $namespace = $outlook->GetNameSpace("MAPI");
      my $inbox = $namespace->GetDefaultFolder(olFolderInbox); 
      # my $inbox = $namespace->GetFolderFromID("Inbox\\INSA\\amis"); 
      # returns a MAPIfolder object
      
      my $inboxEmails = undef;
      my $found = 0;
      
      for (my $i=1;$i<=$inbox->items->Count();$i++) 
      # scan each item and make sure it's an email
      # CAUTION : Outlook's item index starts at one and goes to the n
+umber of items found instead
      # of going from 0 to (n-1)...
      {
         my $item = $inbox->items->Item($i);
         my $email = undef;
      
         if ($item->{Class}==olMail)# is it an email ? olMail = 43
         {
            foreach my $key (keys %filter)
            {
               # print "key : $key \n"; # debug purpose
               if ($key ne "Body")# Body needs a special treatment as 
+it can be text or HTML
               {
                  $email->{$key} = $item->{$key};
               }
               else
               {        
                  if (not($email->{"Body"}=$item->{HTMLBody}))
                  {
                     $email->{"Body"}=$item->{Body}
                  }
               }
               # if mail meets criterion   
               $found = ($email->{$key}    =~/$filter{$key}/is);
               
               if (not $found)
               {
                  last; # exits the foreach loop at this point
               }
            }
            if ($found) # if still true then mail meets all criteria s
+pecified
            {
               $inboxEmails->{$i}=$email;
               # print "found one ($i)...\n" # debug purpose
            }
         }
      }
      return $inboxEmails;
   }
   return (undef); # if code reaches this line then it hasn't reached 
+the other return
}# implying either the program's not open or there's no document.

[download]

In reply to Find any email in your Outlook inbox that matches certain criteria by Foggy Bottoms

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.