Não consigo fazer meu programa enviar E-mail

Delphi

18/09/2020

Olá, trabalho em uma empresa que utiliza um programa feito em Delphi 7, neste programa há uma seção de "requisição de itens" vindos do setor de Suprimentos da empresa, nesta requisição o usuário deve inserir o que quer pedir, mais quantidade e depois liberar a solicitação para o Suprimentos, nesse "enviar ao suprimentos" o delphi deveria enviar um e-mail para o e-mail do suprimentos no Gmail, porém aparece um erro de "Project raised exception class EIdOSSLCouldNotLoadSSLLibrary with message 'Could not load SSL library.'. Process stopped. Use Step or Run to continue."

Meu código atualmente está assim : 

procedure TFormRequisicao.Envia_Email;
begin
  try
    IdSMTP1.AuthenticationType := atLogin;

    IdSMTP1.Host := 'smtp.gmail.com';
    IdSMTP1.Username := 'suprimentos@dominio.com.br;
    IdSMTP1.Password := 'senha';
    IdSMTP1.Port := 465;
    IdSMTP1.IOHandler := IdSSLIOHandlerSocket1;
    //IdSMTP1.UseTLS := utUseRequireTLS;
    IdSMTP1.Connect(30000);

    IdSMTP1.ReadTimeout := 30000;
    IdSMTP1.AuthenticationType := atLogin;


    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient;

    // Utiliza Autenticação
    IdMessage1.From.Address := 'suprimentos@dominio.com.br';
    IdMessage1.Subject:= 'Requisicao .:' + editCodigo.Text;
    IdMessage1.Body.Clear;
    IdMessage1.Body.Add('Foi gerada uma nova requisicao.');
    IdMessage1.Body.Append('Numero. ' + editCodigo.Text);
    IdMessage1.Body.Append('Aguardando seu atendimento');
    IdMessage1.Body.Append('Contato ' + nomeUsuario);
    IdMessage1.Recipients.EMailAddresses  := 'suprimentos@dominio.com.br';

    if not IdSMTP1.Connected then
       IdSMTP1.Connect();
       IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  end;
end;
Marcus Vinicius

Marcus Vinicius

Curtidas 0

Respostas

Jose

Jose

18/09/2020

Eu tenho um aplicativo que está usando o TIDHTTP e está funcionando bem. Estou tentando obter uma resposta de um site usando a função Get. Agora, estou recebendo o erro Não foi possível carregar a biblioteca SSL. Verifiquei se há libeay32.dll e ssleay32.dll e ambos estão em C: \\ Windows \\ SysWOW64. Alguns disseram que o OpenSSL é necessário, mas eu não precisava disso antes. O que pode estar acontecendo ??
Olha este video
https://www.youtube.com/watch?v=nKc5oacZa5w

baixar vídeo do youtube no celular 
https://pt.savefrom.net/9/
GOSTEI 0
POSTAR