Mailinhalt in Outlook auslesen und weiterverarbeiten

[JaniJPK]

Guten Abend :)

Ich habe folgendes vor: Ich will den Text einer Mail auslesen und mit dem Inhalt weiterarbeiten.

Kann mir jemand weiterhelfen mit dem Zugriff auf Outlook und den Inhalt?
Habe schon viel Quelltext gefunden aber bis jetzt keiner der mich weiterbringt...






P.S.: Benutze RAD Studio 10 Seattle und falls ich das Thema in einer falschen Kategorie eröffnet habe sorry.

[nahpets]

Suchst Du nach sowas: http://www.delphipraxis.net/535829-post5.html

[JaniJPK]

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?!

[p80286]

Versuch es mal hier

Gruß
K-H