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