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
