Juan Carlos Posted June 14, 2021 Share Posted June 14, 2021 Estou tentando fazer o envio de e-mail pelo uniGUI usando o seguinte código: IdSMTP1.Disconnect; Messagem := TIdMessage.Create(nil); Messagem.CharSet := 'ISO-8859-1'; Messagem.Encoding := meMIME; Messagem.Clear; Messagem.ContentType := 'text/html'; Messagem.ContentTransferEncoding := '16bit'; Messagem.From.Name := UniMainModule.TMEMPRESANOME_FANTASIA.AsString; Messagem.From.Address := edtRemetente.text; Messagem.Priority := mpNormal; Messagem.Subject := edtAssunto.text; Messagem.Date := Now; Messagem.Recipients.Add; Messagem.Recipients.EMailAddresses := cbEmailPara.Text; Messagem.BccList.EMailAddresses := chkComboBoxEmail.Text; //Corpo Messagem.Body.Clear; Messagem.Body.Text := UniHTMLMemo1.Text; IdSMTP1.UserName := QPARAMETROS_WEBSMTP_USUARIO.AsString; IdSMTP1.Password := QPARAMETROS_WEBSMTP_SENHA.AsString; IdSMTP1.Host := QPARAMETROS_WEBSMTP_SERVIDOR.AsString; if QPARAMETROS_WEBSMTP_AUTENTICACAO.asstring = 'S' then begin IdSMTP1.UseTLS := utUseExplicitTLS; // utUseImplicitTLS; IdSMTP1.AuthType := satDefault; IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1; IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient; end else begin IdSMTP1.IOHandler := nil; IdSMTP1.UseTLS := utNoTLSSupport; end; IdSMTP1.Port := QPARAMETROS_WEBSMTP_PORTA.AsInteger; IdSMTP1.HeloName := IntToStr(UniMainModule.idusuario); IdSMTP1.Connect; IdSMTP1.Send(Email); IdSMTP1.Disconnect; Messagem.Free; Recebo a seguinte mensagem de erro: Link to comment Share on other sites More sharing options...
José Marcelino Menezes Posted March 25, 2022 Share Posted March 25, 2022 Olá Juan Carlos. Estou com o mesmo problema no ssl aqui. Você ja conseguiu a solução? Grato. Link to comment Share on other sites More sharing options...
sicoobcooplivre Posted April 12, 2022 Share Posted April 12, 2022 Good Morning! I have the same problem when I use my application as ISAPI! Can anyone help please? Thank you! Link to comment Share on other sites More sharing options...
Sherzod Posted April 13, 2022 Share Posted April 13, 2022 18 hours ago, sicoobcooplivre said: I have the same problem Hello, Please provide more information. What certificate are you using? Self-signed? Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now