knihovna pro cteni pst baze od MS OUTLOOK

[Michal Polák]

V Outlooku (anebo to bylo v Exchange ?) jsem PERLem programove modifikoval
kontakty a formulare.

Ale pouze pres Win32::OLE, tedy byl pozadavek, aby na danem stroji byl
Outlook nainstalovany.
Dokumentaci mi byla jakasi kniha priblizne "programujeme v Outlook ve VB".

Prilozeny zdrojak neni sice presne co potrebujete, ale snad to jako
inspirace postaci....
--
Michal Polak
system programmer, TurboConsult s.r.o.
mpolak na email.cz, michal.polak na turboconsult.cz
ICQ: 106342077
Tel: +420 5 32 161 111

Everyone should hold strong convictions, I am convinced I will have another
glass.

"L.P." <lpo na seznam.cz> píše v diskusním příspěvku
news:000001c263b7$6e34e340$0201a8c0 na pc150...> ZDravim odborniky
>
> Nevite zde je k dispozici nejaka knihovna pro cteni - strukturovane  cteni
> databaze *.pst kterou vytvari pro sebe MS Outlook?
> Dekuji za radu
> Lubos Polednicek


#!perl -w

use strict;
use Win32::OLE;
use English;

my $outl;
eval {$outl = Win32::OLE->GetActiveObject('Outlook.Application')};
  die "Outlook not installed" if $EVAL_ERROR;
  unless (defined $outl) {
    $outl = Win32::OLE->new('Outlook.Application', sub {$_[0]->Quit;})
      or die "Oops, cannot start Outlook";
  };

my $mapi = $outl->GetNameSpace("MAPI");
my $f = $mapi->Folders("Veřejné složky")->Folders("Všechny veřejné
složky")->Folders("Zakázky")->Folders("VIS")->Folders("Test");

my $count = $f->Items->Count;
for (my $i = 1; $i <= $count; $i++) {

  my $item = $f->Items($i);

  # zpracovat tuto polozku, napr takto:
  print "$i) ", $item->{Firstname}, " ", $item->{LastName}, "\n";

};