Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Jean Patrick

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    35

  • Registro em

  • Última visita

  • Days Won

    4

 Tipo de Conteúdo 

Tudo que Jean Patrick postou

  1. Jean Patrick
    É possível pegar os erros através do evento OnMailException . Relacionado aos erros que você citou como exemplo, são possíveis as seguintes mensagens: SMTP Error: Unable to send MailFrom. e SMTP Error: Unable to send MailTo. Há exemplos de implementação dos eventos OnMailException e OnMailProcess na pasta "Exemplos\ACBrTCP\ACBrMail" do pacote ACBr.
  2. Jean Patrick
    Olá! Qual o provedor de envio e qual o de recebimento? O e-mail está sendo visualizado por algum aplicativo ou direto na página do provedor?
  3. Jean Patrick
    Olá! Você poderia, por favor, postar o código completo do envio com o ACBrMail?
  4. Jean Patrick
    Boa tarde Por favor, atualizem os fontes do ACBr pelo SVN. Foram aplicadas correções para remessa CNAB400 do banco Santander. Além disso, no seu caso @marcelonarezzi , observar que o código de transmissão correto é 06620841447501300688 com 20 dígitos. Os outros dados são como você passou: Código Cedente = 08414475 Conta = 01300688 Conta Dígito = 28 Agência = 0662 Agência Dígito = 9
  5. Jean Patrick
    Bom dia Alves! Por favor, nas configurações do Cedente experimente gerar o boleto trocando de CodigoCedente=404 para CodigoCedente=00404 . Essa correção deve resolver o problema. Com o valor 404 o dígito gerado é 7, já com o valor 00404, que é o mesmo valor que consta na planilha calculo boleto sicredi.xlsx , o dígito gerado é 5. Att. Jean Patrick.
  6. Jean Patrick
    Agora, para enviar e-mails,é preciso antes associar um componente ACBrMail ao componente ACBrBoleto, através da propriedade MAIL: ACBrBoleto1.MAIL := ACBrMail1; with ACBrBoleto1.MAIL do begin From := tblUsuariosEmail.AsString; // e-mail do remetente FromName := 'Seu Nome'; // nome do remetente Username := tblUsuariosNomeUsuarioEmail.AsString; // nome usuario Password := tblUsuariosSenhaUsuarioEmail.AsString; // email usuario Host := tblUsuariosSMTP.AsString; // servidor smtp Port := tblUsuariosPorta.AsString; // porta smtp SetSSL := tblUsuariosSSL.AsBoolean; // ssl SetTLS := tblUsuariosTLS.AsBoolean; // tls UseThread := False; // False = aguarda envio, True = envia em segundo plano ReadingConfirmation := False; // pede confgirmação end; ACBrBoleto1.EnviarEmail( email, //para 'Boleto ref NFe Emtida ', //titulo msg, //mensagem true, // pdf nil, // cc email nil // anexos ); A mesma mudança ocorreu em outros componentes do ACBr que possuem o método EnviarEmail.
  7. Jean Patrick
    Não sei se entendi bem sua pergunta, mas quando você usa os métodos do ACBrMail para anexar arquivos ao e-mail, o seu visualizador de e-mail (Thunderbird, web, etc) que se encarrega, automaticamente, de colocar um clip na mensagem.
  8. Jean Patrick
    O exemplo que vem com o ACBr ainda não está atualizado para Lazarus com CAPICOM. Só para Lazarus com OpenSSL. Mais para frente, ele será atualizado.
  9. Jean Patrick
    Você comentou corretamente as linhas no ACBr.inc, mas o arquivo ACBrHTTPReqResp.pas que você enviou no zip está desatualizado. Por favor, atualize o ACBr pelo SVN que o erro não vai ocorrer mais.
  10. Jean Patrick
    Quanto ao uso da dll, não muda nada para Lazarus ou Delphi. O que era necessário antes, continua sendo necessário ainda.
  11. Jean Patrick
    Sem dúvida, uma ótima ideia, Juliomar!
  12. Jean Patrick
    Já estão disponíveis no SVN as alterações para usar o componente ACBrNFe2 com certificado A3 no Lazarus Win32. Nota: Para usar este recurso no Lazarus, é preciso no arquivo ACBr.inc, da pasta Fontes/ACBrComum, comentar as linhas 65 e 191.
  13. Jean Patrick
    Se ocorrer um erro no envio, a thread é interrompida. Para saber se ocorreu um erro, impedindo o envio, ou se o envio foi bem sucedido, use o seguinte código no evento OnMailProcess: case aStatus of pmsStartProcess: Memo1.Lines.Add( 'Iniciando processo de envio.'); pmsConfigHeaders: Memo1.Lines.Add( 'Configurando o cabeçalho do e-mail.'); pmsLoginSMTP: Memo1.Lines.Add( 'Logando no servidor de e-mail.'); pmsStartSends: Memo1.Lines.Add( 'Iniciando os envios.'); pmsSendTo: Memo1.Lines.Add( 'Processando lista de destinatários.'); pmsSendData: Memo1.Lines.Add( 'Enviando dados.'); pmsLogoutSMTP: Memo1.Lines.Add( 'Fazendo Logout no servidor de e-mail.'); pmsDone, pmsError: begin if aStatus = pmsError then Memo1.Lines.Add(ACBrMail1.GetLastSmtpError) // Exibe o erro else Memo1.Lines.Add( 'E-mail enviado com sucesso.'); end; end;
  14. Jean Patrick
    Isaque, ainda não tenho acesso para subir alterações para o SVN do ACBr.
  15. Jean Patrick
    Fiz algumas alterações: Modifiquei para não ser preciso uma propriedade de envio extra e continuar compatível com códigos antigos: Exemplos: Sem Thread: ACBrMail1.Send; ou ACBrMail1.Send(False); Com Thread: ACBrMail1.Send(True); Fiz, também, modificações para poder pegar erros de envio usando Thread. No evento OnMailProcess do componente usar, por exemplo: case aStatus of ... pmsError: Memo1.Lines.Add(ACBrMail1.GetLastSmtpError); ... end; Ver anexo. ACBrMail.pas ACBrMail.pas
  16. Jean Patrick
    Uma coisa que observei ao testar é que, quando tem um erro no envio do e-mail (senha errada, por exemplo), a thread fica rodando sem parar. Editado: Na verdade não está mostrando que ocorreu um erro.
  17. Jean Patrick
    Implementado comando EMAIL com base no componente ACBrMail (ver arquivo de ajuda do ACBrMonitor, atualizado). Também, agora, o comando BOLETO.IncluirTitulos aceita como tipo de saída o parâmetro "E" (ver ajuda) que gera um arquivo PDF com os boletos existentes na lista de títulos e envia como anexo para o e-mail do Sacado. Foi incluido, ainda, o comando BOLETO.EnviarEmail , que similar ao acima, gera um arquivo PDF com os boletos existentes na lista de títulos e envia como anexo para o e-mail do Sacado. Atualize pelo SVN. Lembrando que, a próxima versão do ACBrMonitor de compilação semanal, e disponível aos usuários do SAC, já terá essas funcionalidades.
  18. Jean Patrick
    host smtp = smtp.live.com porta = 587 SSL = false TLS = true
  19. Jean Patrick
    Recentemente, com base no código do ACBrNFe2, desenvolvi uma rotina (ver exermplo em anexo) que permite usar certificados A3 no Lazarus (Windows 32bits). A rotina faz uso das bibliotecas WinINet e CAPICOM. O André e o Juliomar estão ajudando a alterar o ACBrNFe2 para trabalhar com a nova rotina que se transformará numa classe, a princípio, chamada TACBrHTTPReqResp. Outros componentes deverão ser beneficiados com a nova classe: MDF-e, CT-e, NFS-e, e também o e-Social. Além disso, vários projetos poderão ser portados para Lazarus, como, por exemplo, o ACBrNFeMonitor CAPICOM. laz_WinINet_CAPICOM.rar
  20. Jean Patrick
    Jean, acho que achei o problema, eu define o DefautCharset como UTF_8 no componente e quando chamo o send do componente ele esta verificando se o DefautCharset é diferente de UTF_8 pra converter, como não é diferente não esta atribuindo o assunto ... Já está disponível no SVN correções para as situações citadas acima. Para mais detalhes, vejam o arquivo "ACBrTCP-change-log.txt". Obrigado netstart e plenus.
  21. Jean Patrick
    Verifique se a propriedade Subject está sendo preenchida. Exemplo: ACBrMail1.Subject := 'Seu Assunto';
  22. Jean Patrick
    Corrigi o problema e a correção já está disponível no SVN.
  23. Jean Patrick
    Devido a outra mensagem sua postada aqui, ontem estava revisando o código e, de fato, notei esta diferença. Amanhã deve estar disponível uma correção no svn. Do modo como está agora, um assunto que contenha acentos não é mostrado corretamente no Windows Mail e nem na página do Hotmail (no site do Gmail e o Thunderbird é mostrado corretamente). Em meus testes, com a correção, o texto do assunto e do corpo da mensagem, ambos contendo acentos, foram mostrados corretamente em todos os leitores de e-mail citados acima.
  24. Jean Patrick
    Um recurso de salvamento similar ao encontrado no Thunderbird, Win Mail, etc., que salva a extrutura MIME da mensagem, não tem. Mas, como sugestão, você pode salvar as configurações da mensagem (assunto, conteúdo, listas de destinatários e anexos) em um arquivo ou em um banco de dados.
  25. Jean Patrick
    O componente ACBrMail foi testado no FPC 2.6.2, FPC 2.7.1 e no Delphi 7. Para compilar o exemplo "Enviador de e-mails ACBrMail" (não é o componente) com FPC 2.7.1, na unit ucontatoslist.pas, alterar a linha 102 de: DBGrid1.DataSource.Dataset.Bookmark := TBookmarkStr(Items[x]); Para: DBGrid1.DataSource.Dataset.Bookmark := Items[x]; Para quem quiser testar, segue anexo o exemplo compilado (compilação atualizada em 03/11/2013). Env_ACBrMail.zip
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.