Outlook - Persönliche Ordner auslesen

[sugar421]

Hallo,

nachdem ich mich nun durch diverse Einträge und ilfen gesucht habe, bekomme ich nun Kontakt zu Outlook.
Wenn ich aber die einzelnen Ordner, also bspw. alle Eingangsordner, versage ich noch. Folgender Code liest mir nur einen persönlichen Ordner aus, nicht aber alle meine Eingangsordner.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  
  Folder: MAPIFolder;
  i: Integer;
begin
  memo1.Lines.Clear;
  NmSpace := Outlook.GetNamespace('MAPI');
  NmSpace.Logon('', '', False, False);
  Folder := NmSpace.GetDefaultFolder(olFolders);
  For I := 1 to NmSpace.Folders.Count -1 do
  memo1.Lines.Add(  NmSpace.Folders.Item(I).Name);
  Folder.Display;
end;

Wie bekomme ich auch Zugriff auf die Unterordner im Eingang?

Gruß
Heiko

[marabu]

Hallo Heiko,

ein paar kleine Änderungen und du müsstest auf die Unterordner im Posteingang zugreifen können:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  FolderInput: MAPIFolder;
  i: Integer;
begin
  memo1.Lines.Clear;
  NmSpace := Outlook.GetNamespace('MAPI');
  NmSpace.Logon('', '', False, False);
  FolderInput := NmSpace.GetDefaultFolder(olFolderInput);
  For i := 1 to FolderInput.Folders.Count do
    memo1.Lines.Add( FolderInput.Folders.Item(I).Name);
  // FolderInput.Display;
end;

Grüße vom marabu

[sugar421]

Danke!

Ich musste nur "FolderInput" gegen "FolderInbox" ersetzen und dann war ich am Ziel!

DAnke

Gruß
Heiko

[marabu]

FolderInput war eine Freud'sche Fehlleistung, sorry.