Email Text überprüfen

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