Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re^2: Win32 - M$ Outlook and Perl.

by ttdri1 (Initiate)
on May 11, 2005 at 06:16 UTC ( #455868=note: print w/ replies, xml ) Need Help??


in reply to (RhetTbull) Re: Win32 - M$ Outlook and Perl.
in thread Win32 - M$ Outlook and Perl.

Who do I read mail in subfolders: inbox/subfolder


Comment on Re^2: Win32 - M$ Outlook and Perl.
Re^3: Win32 - M$ Outlook and Perl.
by RhetTbull (Curate) on May 13, 2005 at 03:50 UTC
    This will recursively print out the names of all subfolders in Inbox. You could combine this with the code above to get the messages in each subfolder.
    use strict; use warnings; use Win32::OLE; use Win32::OLE::Const 'Microsoft Outlook'; $|++; #get an Outlook object my $outlook; $outlook = Win32::OLE->new('Outlook.Application'); die unless $outlook; #get the Inbox folder my $namespace = $outlook->GetNamespace("MAPI"); my $folder = $namespace->GetDefaultFolder(olFolderInbox); my $items = $folder->Items; print STDERR "Folder: ", $folder->Name,"\n"; print STDERR "Total entries: ",$items->Count,"\n"; print_folders($folder); sub print_folders { my $folder = shift; print "Folder: " . $folder->Name . "\n"; if ($folder->Folders->Count) { foreach my $i (1..$folder->Folders->Count) { print_folders($folder->Folders($i)); } } }
      What if a new folder (not a subfolder) is created by the user just like Inbox ?

        pankaj_it09:

        Change the line:

        my $folder = $namespace->GetDefaultFolder(olFolderInbox);

        to select the folder you want to start from.

        ...roboticus

        When your only tool is a hammer, all problems look like your thumb.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://455868]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2015-07-04 08:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls