Email Text überprüfen

[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