Delphi-PRAXiS - Delphi auf unterschiedliche Outlook .pst Dateien zugreifen ?

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