auf unterschiedliche Outlook .pst Dateien zugreifen ?

[mrmoe]

hallo zusammen,

wollt mal nachfragen ob jemand weiss wie ich auf die inhalte (termine, kontakte etc.) von unterschiedlichen .pst dateien zugreifen kann. ich plane sowas wie eine art termin abgleich zu machen, alle .pst dateien der verschiedenen nutzer liegen in einem zentralen ordner:
zb. f:\pst\nutzer1.pst, f:\pst\nutzer2.pst, ...

ich krieg es momentan nur hin diese sachen aus der pst datei auszulesen die dem aktuell angemeldeten windows nutzer zugeordnet ist und zwar so:

Delphi-Quellcode:

 procedure TForm1.Button2Click(Sender: TObject);
const 
  olFolderCalendar = $00000009; 
var 
  outlook, NameSpace, Termine, Termin: OleVariant;
  FTermine,FItems: OleVariant;
  i: Integer;
  sFilter, eFilter, erg: String;

begin

 if (Ed_von.text <> '') and (Ed_bis.Text <> '' ) then
 begin
  Memo1.Lines.Clear;
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');
  Termine := NameSpace.GetDefaultFolder(olFolderCalendar);
  sFilter:='[START] >= ''' + Ed_von.Text + '''';
  eFilter:='[End]   <= ''' + Ed_bis.Text + '''';
  FTermine:= Termine.Items.Restrict(sFilter);  // nur Termine behalten die >= von-Datum
  FTermine:= FTermine.Restrict(eFilter);       // nur Termine davon behalten die <= bis-Datum

  for i := 1 to FTermine.Count do  //resultierende Termine durchmustern
  begin
    Termin := FTermine.Item(i);
    // Titel des Termins und Startdatum mit Zeit auslesen:
    erg:= Termin.Subject;
    erg:= erg + ' <Begin: ' + DateTimeToStr (Termin.Start) + ' >';
    erg:= erg + ' <Dauer: ' + TimeToStr (Termin.Duration) + ' >';
    erg:= erg + ' <Ende: ' + DateTimeToStr (Termin.End) + ' >';
    Memo1.Lines.Add(erg);
  end;

  Outlook := UnAssigned;

end;

end;

bin für jede hilfe dankbar