recibir correo con adjuntos

[smessina]

gracias por contestar epuigdef


todavia no pude probarlo porque no llegue a casa.
... pero como que tienes declarado a ata en el ejemplo de codigo?

Código Delphi [-]
ata := TIdAttachmentFile(Msg.MessageParts.Items[intIndex]);
  ata.SaveToFile('.\'+ata.FileName);

gracias por tu tiempo.

un abrazo

[smessina]

gracias por su ayuda.


ya pude solucionarlo

me faltaba poner

Código Delphi [-]
idpop31.Retrieve(n,mail);

el codigo quedaria asi

Código Delphi [-]
procedure Tfppal.suiButton7Click(Sender: TObject); 
var
    n,   nummsgs    : integer; 
  x:integer;
 begin
    Memo1.Lines.Clear;  
 //Conectamos! 
  idpop31.Connect(0);
  //Obtenemos el numero de emails que tenemos  
 NumMsgs:=idpop31.CheckMessages;
    Memo1.lines.add( 'Emails:' +IntToStr(NumMsgs) );
    for n:=1 to NumMsgs do begin
           idpop31.Retrieve(n,mail);
           for x:=0 to Pred( mail.MessageParts.Count) do
         begin
            if (mail.MessageParts.Items[x] is TIdAttachment) then
           begin // si es attchamente lo guardo
               Memo1.Lines.Add( TIdAttachment( mail.MessageParts.Items[x]).Filename);
               TIdAttachment(mail.MessageParts.Items[x]).SaveToFile(ExtractFilePath(GetModuleName(hInstance)) +
               TIdAttachment(mail.MessageParts.Items[x]).Filename);
               end;
           next;
           end;

            idpop31.RetrieveHeader(n,mail);
     Memo1.Lines.Add( 'Email Nº:'+IntToStr(n)+' De:'+mail.From.Text+' Tema:'+mail.Subject );
     mail.Clear;
   end;
   idpop31.Disconnect;

   end;

[epuigdef]

Ok! Felicidades por solucionarlo!

De todas formas, por si alguien más visita este hilo, te contesto la pregunta:

ata está definido como TIdAttachmentFile

Un saludo

Edu