descargar adjunto de un correo

[jgutti]

Hola al foro, necesito descargar archivos adjuntos de los correos con pop3 o imap a una carpeta
- delphi 2010

saludos

[Ñuño Martínez]

Para eso puedes usar Indy.

[CHiCoLiTa]

Código Delphi [-]
var
  Cuerpo   : TIdMessage;
  POP3     : TIdPOP3;
begin

  with POP3 do
  begin
      Connect(0);
      // Hay correos nuevos
      if CheckMessages > 0 then
      begin
        Cuerpo := TIdMessage.Create(nil);
        for i := 1 to CheckMessages do
        begin
          Retrieve(i, Cuerpo);

        // Adjuntos
          for j := 0 to Cuerpo.MessageParts.Count - 1 do
          begin
            if (Cuerpo.MessageParts.Items[j] is TIdAttachment) then
            begin
                EL_FICHERO := TIdAttachment(Cuerpo.MessageParts.Items[j]).Filename;
..
..
..
..