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;