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

Re: Getting calender

by cacharbe (Curate)
on Sep 30, 2002 at 16:05 UTC ( #201750=note: print w/ replies, xml ) Need Help??


in reply to Getting Outlook calender

The short answer here is Yes. The longer answer is a bit more complicated.

Some things you are going to have to do some research on (in no particular order) are:

  • Win32::OLE
  • Using Win32::OLE to connect to Exchange through one of the following:
    • Outlook
    • Outlook Web Access (OWA)
    • CDO-NTS
  • Using the MAPI interface to get the data you need
  • Proper Authentication
Off the top of my head, the following will get a list of appointments from the current calendar:
use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Outlook'; use Win32::OLE::Variant; my $OL = Win32::OLE->GetActiveObject('Outlook.Application') || Win32::OLE->new('Outlook.Application', 'Quit'); my $NameSpace = $OL->GetNameSpace("MAPI"); foreach my $folders (in $NameSpace->{Folders}){ print $folders->{Name}."\n"; my $folder = $folders->Folders("Calendar"); print "\t".$folder->{Name}."\n"; foreach my $item (in $folder->{Items}){ print "\t\t".sprintf("%s",Variant(VT_DATE,$item->{Start})) +." : ". $item->{Subject}."\n"; } }

C-.

---
Flex the Geek


Comment on Re: Getting calender
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-09-30 23:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (385 votes), past polls