outlook mail auslesen

[Christophe]

Hallo

Danke für deine Antwort. Aber dies habe ich auch schon Probiert. Wenn ich dies so schreibe erhalte ich den fehler "Nicht genügend wirkliche Parameter". Weis nicht was ich einem Array noch für "wirkliche" Parameter übergeben soll.
Hier mal der ganze Code:

Delphi-Quellcode:

Outlook := CoOutlookApplication.Create;

  NmSpace := Outlook.GetNamespace('MAPI');
  NmSpace.Logon('', '', False, False);

  Inbox := NmSpace.GetDefaultFolder(olFolderInbox);
  NewMail := (Inbox.UnreadItemCount > 0);
  ShowMessage(BoolToStr(NewMail));
  if NewMail then
    ShowMessage(Format('Ungelesene Mails in der Inbox: %d', [Inbox.UnreadItemCount]));

  for i := 0 to Inbox.Items.Count do
  begin
    oiItem := Inbox.Items.Item[i];
  end;