Outlook Unterordner durchsuchen

[HolgerCW]

Hallo zusammen,

ich habe nun herrausgefunden wie ich die obersten Ordner durchlaufen lassen kann.

Wenn ich jetzt den Ordner "Postfach" gefunden habe, wie kann ich dann dort die Ordner weiter nach dem Ordner "Gesendete Elemente" durchsuchen ?

Delphi-Quellcode:

var
 TOA:TOutlookApplication;
 MI: MailItem;
 NS: NameSpace;
 Ordner: String;
 Folder: MAPIFolder;
 I: Integer;
begin
 
 TOA:=  TOutlookApplication.Create(Form_Email.Outlook);

 TOA.ConnectKind := ckRunningOrNew;
 TOA.Connect;
 
 NS := TOA.GetNamespace('MAPI');
 NS.Logon('', '', False, False);
 Folder := NS.GetDefaultFolder(olFolders);
 For I := 1 to NS.Folders.Count do
 begin

  If NS.Folders.Item(I).Name = 'Postfach' then
  begin

   ...

  end;

 end;

Gruss

Holger