Wenn ich den Code kopiere
Code:
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
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;
end;
kommen folgende Fehlermeldungen:
[dcc32 Fehler] Unit1.pas(29): E2003 Undeklarierter Bezeichner: 'Outlook'
[dcc32 Fehler] Unit1.pas(29): E2003 Undeklarierter Bezeichner: 'CoOutlookApplication'
[dcc32 Fehler] Unit1.pas(29): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] Unit1.pas(31): E2003 Undeklarierter Bezeichner: 'NmSpace'
[dcc32 Fehler] Unit1.pas(31): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] Unit1.pas(32): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] Unit1.pas(34): E2003 Undeklarierter Bezeichner: 'Inbox'
[dcc32 Fehler] Unit1.pas(34): E2066 Operator oder Semikolon fehlt
[dcc32 Fehler] Unit1.pas(34): E2003 Undeklarierter Bezeichner: 'olFolderInbox'
[dcc32 Fehler] Unit1.pas(35): E2003 Undeklarierter Bezeichner: 'NewMail'
[dcc32 Fehler] Unit1.pas(35): E2029 ')' erwartet, aber Bezeichner 'UnreadItemCount' gefunden
[dcc32 Warnung] Unit1.pas(35): W1023 Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert
[dcc32 Fehler] Unit1.pas(35): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'Boolean' gefunden
[dcc32 Fehler] Unit1.pas(37): E2029 ';' erwartet, aber 'IF' gefunden
[dcc32 Fehler] Unit1.pas(42): E2003 Undeklarierter Bezeichner: 'aMailItem'
[dcc32 Fehler] Unit1.pas(42): E2003 Undeklarierter Bezeichner: 'Inbox'
Welche uses muss ich denn einbinden Beziehungsweise wie sehen die Deklarationen der Variablen aus?!