Hola amigos, estoy realizando una aplicacion para enviar y recibir mails con archivos adjuntos con los componentes indy, pero me interesaria saber de que manera puedo borrar los mensajes en el servidor una vez recibidos. Para recibir utilizo el componente idPOP3 y delphi 7, inserto el código que utilizo
Código Delphi
[-]
procedure TForm1.Button2Click(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
idpop31.Retrieve(n,mail);
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;
espero me den un dato como para saber donde seguir. Gracias
Fede