indy pop3mail anlage speichern

[Reini64]

mein jetziger Code sieht so aus:

Delphi-Quellcode:

 for i := 0 to IdMsgSend.MessageParts.Count-1 do
        begin
         if IdMsgSend.MessageParts.Items[i] is tIdAttachment then
            begin
              // Dateinamen holen
              s := (IdMsgSend.MessageParts.Items[i] as tIdAttachment).Filename;

              // Extension ändern
              //if sFileExt <> '' then
              //   s := ChangeFileExt(s, '.'+sFileExt);

              // Datei speichern
              (IdMsgSend.MessageParts.Items[i] as tIdAttachment).savetofile(Mail_Anlage+'\123.tes');

              // Protokoll eintragen
              s1 := S1 +   Mail_Anlage+'\'+ s + chr(10) + chr(13);

            end;
        end;