POP3 sem Autenticação SSL

Delphi

11/06/2013

Bom dia!

Criei um executavel o qual verifica uma caixa de email,
e "baixa" o cabeçalho das mensagens e os seus anexos,
funciona perfeitamente em conexões com SSL, uso os componentes,
IdPOP3 ,IdSSLIOHandlerSocket e TIdMessage,

mas quando mudo para um email que não precissa de SSL, encontro erros como:
"Conecting with SSL",

Algúem saberia como me ajudar?

Grato!
Felix Vier

Felix Vier

Curtidas 0

Respostas

Felix Vier

Felix Vier

11/06/2013

ai pessoal o que faço para verificar o ssl e +- isso,
porém não funciona...

if usassl = 'S' then
        begin
          IdPOP31.IOHandler := IdSSLIOHandlerSocket1;
          IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23; //sslvTLSv1;
          IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient; //sslmUnassigned;
        end
        else
        begin
          IdPOP31.IOHandler := IdSSLIOHandlerSocket1;
          IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2; //sslvTLSv1;
          IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned; //sslmUnassigned;
        end;
        IdPOP31.Connect;
        if IdPOP31.Connected then
          idslabel1.caption := '<Conectado> conexão' + #13 + 'realizada com sucesso! ->>  ';
        IdPOP31.Disconnect;
        buscapop3;
      except
        on E: Exception do ShowMessage('Erro: ' + e.Message);
      end;
GOSTEI 0
Felix Vier

Felix Vier

11/06/2013

vish tá fraco o devmedia ein!!
resolvido!
if usassl = 'S' then
          IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23; //sslvTLSv1;
          IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient; //
          beginIdPOP31.IOHandler := IdSSLIOHandlerSocket1;    
          IdPOP31.Connect;  
        end
        else
        begin
        //  IdPOP31.IOHandler := IdSSLIOHandlerSocket1;
        //  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2; //sslvTLSv1;
        //  IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmUnassigned; //sslmUnassigned;
         IdPOP31.Connect;
        end;
        if IdPOP31.Connected then
          idslabel1.caption := '<Conectado> conexão' + #13 + 'realizada com sucesso! ->>  ';
        IdPOP31.Disconnect;
        buscapop3;
      except
        on E: Exception do ShowMessage('Erro: ' + e.Message);
      end;
GOSTEI 0
José

José

11/06/2013

Já que a duvida foi sanada, estou finalizando o tópico.
GOSTEI 0
POSTAR