outlook mail auslesen

[Christophe]

Danke an Delphi-Lover

habe den fehler gefunden lag nur an den Klammern. Statt [i] -> (i).
Hier noch mal der ganze funktionierende 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 := 1 to Inbox.UnreadItemCount do
  begin
    aMailItem := Inbox.Items.Item(i);
    ShowMessage(aMailItem.To);
  end;

Ich lese die ungelesenen nachrachten aus dem Posteingang aus.

Danke für euer Hilfe