estuve buscando info al respecto pero los hilos que encontre no los entendi muy bien, estuve copiando y pegando codigo sin entender demasiado pero no pude resolver lo siguiente:
necesito descargar un mail y los adjuntos de estos, usando indy tengo delphi 7
copiando y pegando codigo hice lo siguiente (repito: sin entender como es el proceso para descargar y guardar en una carpeta un adjunto)
Código Delphi
[-]
procedure Tfppal.suiButton7Click(Sender: TObject);
var
n, nummsgs : integer;
x:integer;
begin
Memo1.Lines.Clear;
idpop31.Connect(0);
NumMsgs:=idpop31.CheckMessages;
Memo1.lines.add( 'Emails:' +IntToStr(NumMsgs) );
for n:=1 to NumMsgs do begin
for x:=0 to Pred( mail.MessageParts.Count) do
begin
if (mail.MessageParts.Items[x] is TIdAttachment) then
begin 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;
esto me descarga los encabezados de los mail y me los agregar a memo1 pero no me descarga los adjuntos.
alguna idea de como se hace o de que me està faltando?
gracias por su tiempo.
un abrazo