Hilfe fehler bei imap und Indy

[Thomas Horstmann]

Hallo,

Delphi-Quellcode:

var
iLoop       : Integer ;
iPriority   : String ;
iCollection : TIdMessageCollection ;
begin
{ Anlegen }
iCollection := TIdMessageCollection.Create(TIdMessageItem) ;
{ Header holen }
IdIMAP4.RetrieveAllHeaders(iCollection) ;
{ Schleife über Messages/Header }
for iLoop := 0 to iCollection.Count-1 do
  begin
  { Prüfen }
    case iCollection.Messages[iLoop].Priority of
    mpHighest : iPriority := 'Highest' ;
    mpNormal  : iPriority := 'Normal' ;
    mpLow     : iPriority := 'Low' ;
    mpLowest  : iPriority := 'Lowest' ;
    end ; // case
  end ; // for 
{ Freigeben }
iCollection.Free ;
end ;

Hoffe es hilft...

Viel Spass
Tom