1:
2:
3:
4:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, OutlookXP, ComObj, ActiveX, ExtCtrls,
  Outlook2000;                    

1:
2:
3:
4:
5:

var
  Form1: TForm1;
  Outlook: _Application;  // OutlookApplication; for D5 users
  NmSpace: NameSpace;
  Folder: MAPIFolder;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button1Click(Sender: TObject);
var
  Unknown: IUnknown;
  Result: HResult;
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);  // Funktioniert!
  // Folder := NmSpace.GetDefaultFolder(olPublicFoldersAllPublicFolders); //Funktioniert nicht!
  Folder.Display;

  ListAllItemsBox1();
end;