delphi imap obtener mails no leidos, mas recientes, por fecha
tengo el siguiente codigo para conectarme a gmail
pero no logro obtener los mails no leidos.
los mas recientes.
solo obtengo la cantidad total de mensajes.
'¿saben como se puede hacer?
¿se puede obtener los mails, por fechas desde una fecha incial a una final y bajarlos?
Código Delphi
[-]
procedure TForm1.BtnConectarClick(Sender: TObject);
var
CantidadTotalMails : integer;
CantMailsRecientes : Integer;
CantMailsNoVistos : Integer;
begin
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdIMAP41.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdIMAP41.Host := edtServer.Text;
IdIMAP41.Port := 993;
IdIMAP41.UseTLS := utUseImplicitTLS;
IdIMAP41.Username := edtUser.Text;
IdIMAP41.Password := edtPassword.Text;
IdIMAP41.Connect;
try
if IdIMAP41.SelectMailBox('INBOX') then
CantidadTotalMails := IdIMAP41.MailBox.TotalMsgs;
CantMailsRecientes := IdIMAP41.MailBox.RecentMsgs;
CantMailsNoVistos := IdIMAP41.MailBox.UnseenMsgs;
finally
IdIMAP41.Disconnect;
end;
Memo1.Lines.Add(IntToStr(CantidadTotalMails));
Memo1.Lines.Add(IntToStr(CantMailsRecientes));
Memo1.Lines.Add(IntToStr(CantMailsNoVistos));
end;
gracias.