[Ole] Zugriff auf Unterordner von Outlook-Kontakten

[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