Email Text überprüfen

[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.