Ficheros adjuntos en Indy con IdMessage

[[gluglu]]

Código Delphi [-]
for ii := 0 to Pred(IdMessage1.MessageParts.Count) do begin

  if (IdMessage1.MessageParts.Items[ii] is TIdAttachmentFile) then begin
    //Caso de que fuera un adjunto
    AuxString1 := TIdAttachmentFile(IdMessage1.MessageParts.Items[ii]).Filename;
    ...
    f := TMemoryStream.Create;
    TIdAttachmentFile(IdMessage1.MessageParts.Items[ii]).SaveToStream(f);
 
    ...

  end
  else  // Resto del mensaje (p.ej. parte principal)
 
  ...
 
end;

Saludos