Fórum Erro no envio de email #529667

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í

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,

Mostra a configuração do seu SMTP fazendo favor

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).