gmail e IMAP error

[epuigdef]

Hola!

No he puesto el código porque he usado lo que aparece en todos los ejemplos que hay por internet, nada nuevo.

De hecho mi pregunta va más dirigida a saber si desde gmail se han aplicado cambios en la seguridad que han hecho que estas aplicaciones hayan dejado de funcionar.

El tema de permitir las aplicaciones no seguras ya lo tengo hecho, sin resultado

Gracias

Edu

[Neftali [Germán.Estévez]]

Dependiendo del tiempo que tenga el programa sí que deberás cambiar cosas en la conexión.
Normalmente casi todos los servidores se han vuelto más restrictivos. Sin ver código el código que estás utilizando es difícil saber lo que hay que cambiar, pero si revisas los últimos códigos publicadops en el club (hay un hilo de no hace más de 2 semanas que hablaba sobre el tema) puedes compararlo con el tuyo.

[epuigdef]

Hola:

Simplificando, éste es el código que tengo:

Código Delphi [-]
function GetGmailMessageCount(const UserName, Password: string): Integer;
var
  IMAPClient: TIdIMAP4;
  OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := 0;
  IMAPClient := TIdIMAP4.Create(nil);
  try
    OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      OpenSSLHandler.SSLOptions.Method := sslvSSLv3;
      IMAPClient.IOHandler := OpenSSLHandler;
      IMAPClient.Host := 'imap.gmail.com';
      IMAPClient.Port := 993;
      IMAPClient.UseTLS := utUseImplicitTLS;
      IMAPClient.Username := UserName;
      IMAPClient.Password := Password;
      IMAPClient.Connect;
      try
        if IMAPClient.SelectMailBox('INBOX') then
          Result := IMAPClient.MailBox.TotalMsgs;
      finally
        IMAPClient.Disconnect;
      end;
    finally
      OpenSSLHandler.Free;
    end;
  finally
    IMAPClient.Free;
  end;
end;