Saber si hay correos nuevos con tidPOP3

[fide]

Hola. Saben ustedes alguna manera de saber cuando hay correo nuevos con tidPOP3?

[jachguate]

Con el método CheckMessages podes obtener el número de mensajes que están almacenados en el servidor.

Hasta luego.

[fide]

Si, eso lo se. Pero es que ese metodo lo unico que te devuelve es la cantidad completa de mensajes que hay en el INBOX.

[dec]

Hola,

Parece que el mecanismo para comprobar lo que quieres debes implementarlo tú mismo. Obteniendo el número de mensajes, puedes "iterar" por todos ellos. Podrías descargar sus cabeceras, y hacer uso del mecanismo en cuestión para comprobar si un mensaje ya se leyó o aún no ha sido leído.

Hasta donde yo llego es así. Me baso en algún mensaje de estos foros y en el ejemplo de cliente Pop3 que acompaña a los componentes Indy. Me suena que hay algún comando Pop3 (que podría ejecutarse directamente) que pudiera servir para lo que nos ocupa, pero, la verdad es que no lo recuerdo bien.

Y es que los comandos Pop3 pueden ejecutase directamente con el componente "TidPop3", si se necesita. Tendrías que echar un vistazo a ver...

[jachguate]

Hay varias formas de hacerlo. Usualmente, se borra el correo del servidor al descargarlo, así que si CheckMessages <> 0 entones, hay correo nuevo. En caso de no borrarlo, sería algo como:

Código Delphi [-]
var
  NewMessageCount: Integer;
begin
  NewMessageCount := idPop3.CheckMessages;
  if NewMessageCount <> LastMessageCount then
  begin
    ProcesarCorreoNuevo();
    ShowMessage('hay correo nuevo!');
  end;
  LastMessage := NewMessageCount;