[Ole] Zugriff auf Unterordner von Outlook-Kontakten

[Stephan A.]

Mittels

Delphi-Quellcode:

Contacts := NameSpace.GetSelectFolder(olFolderContacts);
  for i := 1 to Contacts.Items.Count do
  begin
    Contact := Contacts.Items.Item(i);
    [...]

greife ich auf die Kontakte von MS Outlook zu. Mittels Contacts := NameSpace.GetSelectFolder(olFolderContacts); wird mir der Zugriff auf den Standard-Kontaktordner ermöglicht. Nun bin ich jedoch auf der Suche, nach einem Äquivalent von NameSpace.GetSelectFolder(olFolderContacts);, welches mir den Zugriff auf einen Unterordner bestimmten Unterordner ermöglicht.

Meinen Vermutungen nach lässt sich das mit Hilfe von NameSpace.GetFolder realisieren, in diesem Fall wird von meinem Programm jedoch eine Exception ausgelöst. :(

Danke im voraus für die Hilfe,
Stephan

[Helld_River]

Hi !
Über diesen Code kannst Du alle Folder auslesen:

Delphi-Quellcode:

  aContact := aMAPI.GetDefaultFolder(olFolderContacts);
  cbOutlookFolder.Items.Add('Kontakt Hauptordner');
  cbOutlookFolder.ItemIndex:=0;
  x:=aContact.Folders.count;
  for i := 1 to x do cbOutlookFolder.Items.Add(aContact.Folders(i).Name);

Und mit diesem Code suchst du dir den entsprechenden Ordner raus:

Delphi-Quellcode:

function TfrmKontakte.GetFolder: variant;
var i : integer;
begin
  if cbOutlookFolder.Text='Kontakt Hauptordner' then
    result:= aMAPI.GetDefaultFolder(olFolderContacts)
  else
  begin
    x:=aMAPI.GetDefaultFolder(olFolderContacts).Folders.count;
    for i := 1 to x do
    begin
      if aMAPI.GetDefaultFolder(olFolderContacts).Folders(i).Name=cbOutlookFolder.Text then
      begin
        result:=aMAPI.GetDefaultFolder(olFolderContacts).Folders(i);
        break;
      end;
    end;
  end;
end;

cbOutlookFolder ist eine ComboBox, in welche ich zuerst alle Folder eintrage und dann anschliessen mir über die Routine GetFolder den aktuell selektierten Folder hole.

Hoffe, es hilft dir weiter !!!

Gruß, Helld

[Stephan A.]

Herzlichen Dank!

Im Prinzip hate mir lediglich die Methode "Folders" gefehlt. Habe mich wirklich dämlich gesucht, irgendwie war es hier schwer etwas zu finden, ohne zu wissen was es zu suchen gilt.

Daher Danke nochmals :)