Microsoft destroyed virtually all automation of Outlook about 4 years ago to stop worms, etc. Blunt shotgun approach. There are all sorts of work arounds. Try SuperSearch for some of the info. It is typically ugly. Don't go there if you don't have to.

Reading is a lot easier than *writing* ie using MAPI to send mail.

Example code for accessing a "shared mailbox subfolder"...

use strict;
use warnings;
use Win32::OLE::Const 'Microsoft Outlook';
use Win32::OLE 'in';
#Code for Outlook 97
my $FolderName = "my shared folder";  
my $strValidUser = "~ DSM Requests" ;  #mailbox name/alias
my $Outlook = Win32::OLE->GetActiveObject("Outlook.Application");
 
unless(defined($Outlook)){   
    die("Unable to obtain Outlook OLE handle $!\n"); 
}
my $objNS      = $Outlook->GetNamespace("MAPI");   
my $objRecipient = $objNS->CreateRecipient($strValidUser);
   $objRecipient->Resolve();    #You should check this!
       
my $objInbox  = $objNS->GetSharedDefaultFolder($objRecipient, olFolder
+Inbox);   
my $objFolder = $objInbox->Folders($FolderName);
foreach my $email (in $objFolder->Items ){       
   if ($email->{UnRead} == 0) {
        #blah blah
   }
}
[download]

HTH - Mark

I am new to perl. I had a look at ur node, what does '-f' stand for in the statement

unlink $temp_file_name if -f $temp_file_name;
[download]

and what is '$|' variable?

-f is a file test operator used to see if a file is plain text. In my code, I was just deleting the file if it existed, and probably should have used -e. More information on file test operators can be found here.

As far as $|++, this stops the buffering of the output. $|=1 is cleaner in this case, so I've updated my old node. For more info on $|++ and $|=1, here are some interesting, relevant nodes.



bassplayer