Não consigo fazer meu programa enviar E-mail
18/09/2020
0
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 :
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
Curtir tópico
+ 0
Responder
Posts
21/09/2020
Jose
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
baixar vídeo do youtube no celular
Olha este video
https://www.youtube.com/watch?v=nKc5oacZa5w
baixar vídeo do youtube no celular
https://pt.savefrom.net/9/
Responder
Clique aqui para fazer login e interagir na Comunidade :)