1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button1Click(Sender: TObject);
var
  OutlookApp  : TOutlookApplication;
  Inbox       : MAPIFolder;
  Folder      : MAPIFolder;
  NmSpace     : _Namespace;
  Mail        : MailItem;
  i: Integer;
begin
  try
    OutlookApp := TOutlookApplication.Create(nil);
    OutlookApp.Connect;

    NmSpace := OutlookApp.GetNamespace('MAPI');

    Inbox := NmSpace.GetDefaultFolder(olFolderInbox);

    // Klappt, weil es nur um mein Outlook geht und der Ordner 10 
    // vorhanden ist...
    Folder := Inbox.Folders.Item(10);

    // Der Ordner enthält nur Mails
    for i:=1 to Folder.Items.Count do begin
      Mail :=  MailItem(Folder.Items.Item(i));
      MachWas(Mail.Body);      
    end;
  except
  end;
end;                    

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

Dim objOutlook As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objDefaultMail As Outlook.MAPIFolder
Dim objMail As Outlook.Items
Dim lng As Long

Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objDefaultMail = objNameSpace.GetDefaultFolder(olFolderInbox)
Set objMail = objDefaultMail.Items

lng = objMail.Count
For lng = lng To 1 Step -1
  Debug.Print objMail.Item(lng).Subject
Next lng

Set objMail = Nothing
Set objDefaultMail = Nothing
Set objNameSpace = Nothing
Set objOutlook = Nothing                    

1:

  Mail := MailItem(Folder.Items.Item(i));