Jump to content

Juan Carlos

Members
  • Posts

    6
  • Joined

  • Last visited

Everything posted by Juan Carlos

  1. 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:
  2. Estou usando TuniURLFrame para montar alguns gráficos no meu sistema. Dentro do HTML do TuniURLFrame eu crio uma variável, "nome", que recebe um valor diferente para cada ponto onde o usuário clica no gráfico. Eu queria de pegar esse valor e jogar para um TuniEdit.
  3. Eu usei a função MeuDataclient.First e funcionou! Obrigado!
  4. Após um Refresh no DBGrid ele vai automaticamente para a ultima pagina, mas eu preciso que ele fica na primeira.
  5. How to pick up only the items marked on the unicheckcombobox? How to know which items are checked?
  6. Estou tentando trabalhar com TuniChart, quando eu altero a propriedade Legend > Font > Size no inspetor de objetivo ele simplesmente ignora e não faz alteração nenhuma. PS.: Não estou herdando essas configurações de Font de nenhuma 'Parent'
×
×
  • Create New...