indy pop3 nach abspeichern der bildanlagen sind diese defekt

[alienous]

naja wüsste jetzt nicht wie ichs abspecken soll damit es nacher auch noch funktioniert, die mailabruffunktion ist ja nur ein kleiner teil eines ganzen...

hier mal der eigentliche codeteil in dem es ums auswerten geht.
mail wurde vorher mit pop.retrive(indexnr, IdM) runtergeladen. IdM ist die messagekompo. dann wird die procedure aufgerufen mit dem parameter IdM.

Delphi-Quellcode:

  
procedure Mailauswertung(PMessage: TIdMessage);
var  Liste : TStringlist;
     i : word;
begin  
  Liste := TStringList.Create;
  if PMessage.MessageParts.Count = 0 then
  begin
    Liste.AddStrings(PMessage.Body);  // reine textmail ohne attachment, keine mime-mail!!!!
  end
  else
  begin
 
    for i := 0 to Pred(PMessage.MessageParts.Count) do
    begin
      if (PMessage.MessageParts.Items[i] is TIdAttachment) then
      begin
         Zeit := FormatDateTime('yy-mm-dd_hh-nn-ss',now);
         
         TIdAttachment(PMessage.MessageParts.Items[i]).SaveToFile('c:\Kartenmotive\' +  Zeit + '_' + TIdAttachment(PMessage.MessageParts.Items[i]).FileName);
      end
      else
      begin 
        if PMessage.MessageParts.Items[i] is TIdText then
        begin
    
          Liste.AddStrings(TIdText(PMessage.MessageParts.Items[i]).Body);
        end;
      end;
    end;
  end;
.
.
.
  Liste.free;
end;