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
Cita:
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...
|