Mails Nuevos con TidIMAP4

[fide]

Ya he logrado mostrar solo la cantidad de correos sin leer que hay en el MailBox con el idIMAP4.

Aqui les va el codigo..

al idIMAP1 lo he renombrado a cliente, y he insertado un idMailBox y lo he renombrado a MailBox1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin    cliente.Host := 'correo.ipigto.rimed.cu';
  cliente.Port := 143;

  cliente.Username := 'NombreDeUsuario';
  cliente.Password := 'contraseña';
  cliente.Connect;

  cliente.StatusMailBox('INBOX', MailBox1, [mdUnseen]);
  Caption := 'Usted tiene ' +  IntToStr(MailBox1.UnseenMsgs) + ' mensajes nuevos en la bandeja de entrada';

end;

Lo que sucede es que si no llamamos la instruccion StatusMailBox con el ultimo parametro igual a mdUnseen pues entonces la otra instruccion de abajo nos devuelve 0 en la cantidad de correos sin leer...

[santiago14]

Empezado por fide

Ya he logrado mostrar solo la cantidad de correos sin leer que hay en el MailBox con el idIMAP4.

Aqui les va el codigo..

al idIMAP1 lo he renombrado a cliente, y he insertado un idMailBox y lo he renombrado a MailBox1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin    cliente.Host := 'correo.ipigto.rimed.cu';
  cliente.Port := 143;

  cliente.Username := 'NombreDeUsuario';
  cliente.Password := 'contraseña';
  cliente.Connect;

  cliente.StatusMailBox('INBOX', MailBox1, [mdUnseen]);
  Caption := 'Usted tiene ' +  IntToStr(MailBox1.UnseenMsgs) + ' mensajes nuevos en la bandeja de entrada';

end;

Lo que sucede es que si no llamamos la instruccion StatusMailBox con el ultimo parametro igual a mdUnseen pues entonces la otra instruccion de abajo nos devuelve 0 en la cantidad de correos sin leer...

Hola, estoy tratando de hacer lo mismo pero con el componente de Indy, idPOP3. ¿Cómo puedo hacerlo?

[ramflores]

Hola, estoy tratando de hacer este ejemplo, con un servidor de correo interno, pero no me hace nada, me marca un error, en INBOX, asi debe ser?, el host, seria la ip del servidor?

gracias de antemano

Empezado por fide

Ya he logrado mostrar solo la cantidad de correos sin leer que hay en el MailBox con el idIMAP4.

Aqui les va el codigo..

al idIMAP1 lo he renombrado a cliente, y he insertado un idMailBox y lo he renombrado a MailBox1.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin    cliente.Host := 'correo.ipigto.rimed.cu';
  cliente.Port := 143;

  cliente.Username := 'NombreDeUsuario';
  cliente.Password := 'contraseña';
  cliente.Connect;

  cliente.StatusMailBox('INBOX', MailBox1, [mdUnseen]);
  Caption := 'Usted tiene ' +  IntToStr(MailBox1.UnseenMsgs) + ' mensajes nuevos en la bandeja de entrada';

end;

Lo que sucede es que si no llamamos la instruccion StatusMailBox con el ultimo parametro igual a mdUnseen pues entonces la otra instruccion de abajo nos devuelve 0 en la cantidad de correos sin leer...