Mail::Outlook help

[jamesbrummel]

I can do the basics but can't find much docs. I need to

A)look in a second mailbox IE not the one Mail::Outlook seems to default to.

b) Date of emails--I'm getting a strange number, not julian, not a date.
Help! or point me to docs!

Thanks

[miller]

Hi James,

The only documentation that I know if is here:

cpan Mail::Outlook

However, note that all distributions generally come with test scripts in the "t" directory, and this package also appears to come with a couple very rudimentary examples.

http://search.cpan.org/src/BARBIE/Mail-Outlook-0.10/

- Miller

[lukeyboy1]

Try this sample code, that I put together: it searches for the folder called '$FOLDER_SEARCH ' at the top level. This is useful when you have multiple mail boxes. Hope it helps!

sub getOutlook {
    my $FOLDER_SEARCH = shift;
 
    my $outlook = Win32::OLE->new('Outlook.Application') or die "Unable to load Outlook";
 
    # Get the Inbox folder
    my $namespace = $outlook->GetNamespace("MAPI");
    my $Deleted = $namespace->GetDefaultFolder(3);
 
    my $folder;
    for(my $i=1; $i<=$namespace->Folders->Count; $i++) {
        eval {
            my $folder1 = $namespace->Folders($i);
            if ($folder1) {
                #print "\nName is ".$folder1->Name;
                if($folder1->Name =~ /$FOLDER_SEARCH/) {
                    #print "\n MATCH ON $FOLDER_SEARCH";
                    $folder = $folder1;
                }
            }
        };
        if($@) {
 
        }
    }
 
    #my $folder = $namespace->GetDefaultFolder(olFolderInbox);
    $folder ||= $namespace->GetDefaultFolder(olFolderInbox);
    my $items = $folder->Items;
}