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: Quote 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. Quote 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! Quote 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? Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.