Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: read emails in outlook personal folders

by Solo (Deacon)
on May 27, 2004 at 15:19 UTC ( #356936=note: print w/replies, xml ) Need Help??

in reply to read emails in outlook personal folders

OLE sounds like the easiest option for a script that will run from your computer. You will run into security/logon concerns if you try to put this on a server somewhere.

use Win32::OLE qw(in); my $Outlook = Win32::OLE->GetObject("Outlook.Application") || Win32::OLE->new("Outlook.Application"); my $Session = $Outlook->Session; for my $Folder (in $Session->Folders) { next unless $Folder->{Name} =~ /Personal Folders/; for my $SubFolder (in $Folder->Folders) { next unless $SubFolder->{Name} =~ /Code Eval/; for my $Item (in $SubFolder->Items) { print $Item->{Subject} . "\n"; print $Item->{Body} . "\n\n"; } } }

This was taken from code I wrote a few years ago. I can't remember if it's important that I used regexps to match folder names instead of string comparisons.

Update: minor code tweaks

Hey, don't worry. Chewie and me got into a lot of places more heavily guarded than this.

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2023-12-05 02:08 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (25 votes). Check out past polls.