I am trying to read all mails in inbox of MS Outlook. The script is 
use Win32::OLE;

#use Win32::GuiTest;

use Win32::Clipboard;

 

  $OL = Win32::OLE->GetActiveObject('Outlook.Application');

  $NameSpace = $OL->GetNameSpace("MAPI");
  
  $Inbox = $NameSpace->GetDefaultFolder(6);          #-- inbox folder

  $Deleted = $NameSpace->GetDefaultFolder(3);           #-- deleted it
+ems folder

  $Root = $Inbox->Parent();

  $MyAccount = $Root->Folders("Inbox");

  
  $MyAccountOK = $MyAccount->Folders("Filtered");

  $Clip = Win32::Clipboard();
  #$Clip->Empty();
  $cnt=$MyAccount->Items->Count;
  print "count = $cnt";
  while ($cnt > 0) {
  
   
  
          $Clip->Empty();       #-- empty the clipboard
  
   
  
          #$MyAccount->Items($cnt)->Display;       #-- display/open me
+ssage with index of $cnt in the MyAccount folder
      
       undef $text;

           $text=$Clip->Get();             #-- get clipboard contents
             #print "text = $text\n";         
       
        $text=~tr/A-Za-z.@/*/c;       #-- convert all but listed valid
+ characters to *
        $text=~tr/*//d;                    #-- now delete asterisks
        $text=lc($text);                   #-- convert to lowercase
            # -- now check for our email address in the internet heade
+r text
       
               if ($text !~ /myaccount\@yahoo\.com/) {
       
                  print "No\t";                #-- move message to De
+leted Items folder      
       
               } else {
       
                 print "Yes\n";
                 $MyAccount->Items($cnt)->Move($MyAccountOK);    #-- m
+ove message to MyAccount->Filtered folder
       
               }
       


$cnt--;
}

[download]
But $text is empty. Clipboard does not has anything( $text=$Clip->Get();). Please help me.

In reply to Re^2: Read new mails in MS Outlook by Nalina
in thread Read new mails in MS Outlook by Nalina

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.