Email Text überprüfen

[PhilmacFLy]

Gibts eine Möglichkeit eine Email abzuholen und den Text und den Betreff zu überprüfen?

[mkinzler]

Welches EMailprogramm?

[rotfc]

Eigentlich kann jedes E-Mail-Programm E-Mails abholen.

Fast alle E-Mail-Programme können dann den Text und/oder Betreff überprüfen (sogar Outlook Express).

Was also willst Du konkret wissen/machen?

[PhilmacFLy]

Ich wollte selber ein Programm schrieben das den Betreff und den Text überprüft.

[mkinzler]

Soll dein Programm die Emails selber holen oder willst du dein Emailprogramm fernsteuern? Wenn ja welches?

[PhilmacFLy]

Also ich wills ganz selber schreiben. Das Programm muss nicht mal die Mails abholen. Nur Betreff und Text überprüfen.

[mkinzler]

Dazu muss es aber die Emails holen.
Kann man mit Netzwerkkomponenten, wie Z.B. INDY, Synapse, ICS machen. Einfach POP3/IMAP-Verbindung zum Server

[PhilmacFLy]

Ok das mit indy hab ich mir schon gedacht.
Aber ich hab ein problem bei

Delphi-Quellcode:

idpop31.RetrieveHeader

weil ich nicht weiss was dann hinten in die Klammer kommt.
Das erste is klar das isn Integer aber das 2te?

[mkinzler]

Die Nachricht

[PhilmacFLy]

Und wie muss ich das schreiben?

[mkinzler]

http://www.delphi-treff.de/tutorials...t/indy/page/6/

[PhilmacFLy]

lol das hab ich auch schon gelesen aber wenn ich hinten IdMessage1 reinschreib,
wird das nur unterringelt.

[mkinzler]

Du musst auch eine Variable mit diesem Namen anlegen

[PhilmacFLy]

und was muss der für ein typ sein

[mkinzler]

Na TidMessage

[PhilmacFLy]

[Fehler] Email_Main.pas(24): E2003 Undefinierter Bezeichner: 'TidMessage'

[mkinzler]

Hast du IdMessage eingebunden?

[PhilmacFLy]

Ja jetzt hab ichs. ^^

[PhilmacFLy]

Eine Frage hab ich jetzt trotzdem noch wenn ich mehrer mails hab welcher betreff wird dann angezeigt?

[mkinzler]

Der Nachricht mit der entsprechender Nummer ( 1.Parameter)

[PhilmacFLy]

Jetzt hab ich das Problem

[mkinzler]

Du scheinst vergessen zu haben eine Instanz zu erzeugen.

[PhilmacFLy]

kannste mal genauer erklären ?

[mkinzler]

Kann es sein, dass dir die Grundlagen der OOP nicht bekannt sind?
http://www.delphi-treff.de/tutorials...phi-crashkurs/

[PhilmacFLy]

Ja mit OOP habi hc mich noch nicht auseinander gesetzt.

[mkinzler]

Die VCL verwendet aber OOP

[PhilmacFLy]

ich weiss aber bis jetzt hab ichs auch immer so geschafft ^^

[mkinzler]

Dann ist jetzt der richtige Zeitpunkt dich damit zu beschäftigen :-D

[PhilmacFLy]

jap ich glaub ich habs jetzt uach verstanden wie ichs machen muss:

Delphi-Quellcode:

IdMessage1 := TidMessage.Create;
idpop31.RetrieveHeader(Na, IdMessage1);
IdMessage1.Free;

Naja aufjedenfall funzts so. :stupid:

[mkinzler]

Ja so erzeugt man eine Instanz

[PhilmacFLy]

du mkinzler hast du icq oder was ähnliches müsste dich mal so anschreiben.

[mkinzler]

Frag doch hier, hier gibt es mehrere, die dir gern helfen werden.

[PhilmacFLy]

K
Also ich versuch mit dem ganzen hier ein programm zu schreiben das Emails abholt den Betreff und Den text berprüft und wenn sagen wir mal im Betreff "Command" und im Text "0CBC6611F5540BD0809A388DC95A615B" steht etwas ausführt. So nun hab ich meine probleme damit das ich ja mehrere Mails bekomme und ich nicht weiss wie ich das programmiern soll das er alle mails überprüft nicht nur die eine.

Naja das is das was ich schon geschireben hab

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var Na: Integer;
begin
  idpop31.Connect;
  Na := idpop31.CheckMessages;
  if
    Na <> 0
  then
    begin
      for
        Na := 1 to NA
      do
        IdMessage1 := TidMessage.Create;
        idpop31.RetrieveHeader(Na, IdMessage1);
        if
          IdMessage1.Subject = 'Command'
        then

    end
  else

[mkinzler]

Nimm mal für die Schleife eine andere Laufvariable, wie für die Grenze

[PhilmacFLy]

Ne das muss ja so sein er solls ja so oft machen wie ich Nachrichten hab verstehst du?

[mkinzler]

Ja aber du solltest Na nicht für 2 Dinge verwenden

[PhilmacFLy]

Also meinst du ich sollts ungefähr so schreiben

Delphi-Quellcode:

var Na1,Na2: Integer;
begin
  idpop31.Connect;
  Na1 := idpop31.CheckMessages;
  Na2 := idpop31.CheckMessages;
  if
    Na1 <> 0
  then
    begin
      for
        Na1 := 1 to NA2
      do
        IdMessage1 := TidMessage.Create;
        idpop31.RetrieveHeader(Na1, IdMessage1);
        if
          IdMessage1.Subject = 'Command'
        then

    end

[mkinzler]

Delphi-Quellcode:

var i,Na: Integer;
begin
  IdMessage1 := TidMessage.Create;
  idpop31.Connect;
  Na := idpop31.CheckMessages;
  if
    Na <> 0
  then
    begin
      for i := 1 to NA do
      begin
          idpop31.RetrieveHeader(i, IdMessage1);
           if IdMessage1.Subject = 'Command' then

      end;
    end;
end;

[PhilmacFLy]

und i ändert sich auch mit eden durchgang oder?

[mkinzler]

Ja.