E-Mails aus Ordnern auslesen

Hallo Mailforum,
ich würde gerne Ein Programm schreiben, welches sozusagen die E-Mails aus den einzelnen Ordnern (Inbox + Unterordner, auch selbsterstellte Ordner) ausliest und, nach den Ordnern strukturiert selbst im Speicher halten und weiter verarbeiten kann.

Dazu wäre wichtig: a) Ordnerstruktur auslesen – wie bekomme ich alle Ordner aufgelistet die in einem bestimmten ordner sind (in meinem Code ist der aktuelle Ordner = “Folder”, s.u.)
b) Alle Emails eines Ordners auslesen (betreff, body, from, datum usw)

Ich habe das angefangen in Delphi zu schreiben, aber die Bezeichnungen der Daten dürfte ja in VBA gleich sein… hier ist der Code bisher:

[code]
var
Form1: TForm1;
Outlook: _Application; // OutlookApplication; for D5 users
NmSpace: NameSpace;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Unknown: IUnknown;
Result: HResult;
Folder: MAPIFolder;
begin
{$IFDEF VER120} // Delphi 4
Outlook := CoApplication_.Create;
{$ELSE} // Delphi 5
Outlook := CoOutlookApplication.Create;
{$ENDIF}

NmSpace := Outlook.GetNamespace(‘MAPI’);
NmSpace.Logon(”, ”, False, False);
Folder := NmSpace.GetDefaultFolder(olFolderInbox);
Folder.Display;
end;
[/code]