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