Erro no envio de email

Delphi

24/08/2015

Tenho uma aplicação em Delphi 2010 que enviava emails normalmente pelos componentes INDY.
De um tempo para cá não consigo mais enviar emails.
Já alterei minha conta GMAIL para "permitir aplicativos menos seguros" mas mesmo assim não consigo.
Alguém tem alguma informação que possa ajudar?
Obrigado
Mauricio

Mauricio

Curtidas 0

Respostas

Mateus Ribeiro

Mateus Ribeiro

24/08/2015

Bom dia!

Se possível, dê mais informações sobre o ocorrido logo de primeira, aí agiliza pra quem for ajudar.

Bom, qual erro ocorre? Temos que partir daí
GOSTEI 0
Mauricio

Mauricio

24/08/2015

Bom dia Mateus !

Eu não alterei nada na minha aplicação, primeiro de um momento para outro começou a dar a msg " Connection Closed Garacefully ", depois de algumas pesquisas tive a informação que precisaria alterar a conta do Gmail para a opção de "permitir aplicativos menos seguros", a partir dessa alteração ele passou a dar a msg "socket error 10061, connection refused".

Obrigado,
GOSTEI 0
Mateus Ribeiro

Mateus Ribeiro

24/08/2015

Mostra a configuração do seu SMTP fazendo favor
GOSTEI 0
Mauricio

Mauricio

24/08/2015

Segue:

IdSMTP1.Host := edtHost.Text;
idSMTP1.Port := strtoint(edtPort.Text);

// Configuraçao da Autenticação
if rbAuthNone.Checked = True then
begin
IdSMTP1.IOHandler := nil;
IdSMTP1.AuthType := satNone;
IdSMTP1.Username := '';
IdSMTP1.Password := '';
IdSMTP1.UseTLS := utNoTLSSupport;
end
else if rbAuthDefault.Checked = True then
begin
IdSMTP1.IOHandler := nil;
IdSMTP1.AuthType := satDefault;
IdSMTP1.Username := edtUserName.text;
IdSMTP1.Password := edtPassword.Text;
IdSMTP1.UseTLS := utNoTLSSupport;
end
else if rbAuthSSL.Checked = True then
begin
IdSMTP1.IOHandler := IOHandler1;
IdSMTP1.AuthType := satDefault;
IdSMTP1.Username := edtUserName.text;;
IdSMTP1.Password := edtPassword.Text;
IdSMTP1.UseTLS := utUseImplicitTLS;
// Configuramos o IOHandle
iOHandler1.SSLOptions.Method := sslvSSLv23;
end
else if rbAuthTLS.Checked = True then
begin
IdSMTP1.IOHandler := IOHandler1;
IdSMTP1.AuthType := satDefault;
IdSMTP1.Username := edtSenderAddress.Text;
IdSMTP1.Password := edtPassword.Text;
IdSMTP1.UseTLS := utUseRequireTLS;
{ Configuramos o IOHandle }
ioHandler1.SSLOptions.Method := sslvSSLv3;
end;

Estou com as quatro bibliotecas na pasta de execução do programa (libeay32.dll, libssl32.dll, ssleay32.dll e vsinit.dll) e com o openSSL.exe

No caso estou tentando com a conexão TLS (último bloco).
GOSTEI 0
POSTAR