indy pop3mail anlage speichern

[Union]

Zitat von Reini64:

Guten Morgen zusammen,

ich habe mal wieder eine Frage:

Wie kann ich eine Anlage aus einer Indy Pop Mail speichern ?

Hier ein Besispiel:

Delphi-Quellcode:

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

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

                 // Datei speichern
                 (aMsg.MessageParts.Items[iMp] as tIdAttachment).savetofile(sDataPath+s);
                 // Protokoll eintragen
                 Logg('Attachment saved as '+sDataPath+s);
              end;
           end;