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.

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?

Olá! Você poderia, por favor, postar o código completo do envio com o ACBrMail?

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

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.

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.

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.

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.

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.

Quanto ao uso da dll, não muda nada para Lazarus ou Delphi. O que era necessário antes, continua sendo necessário ainda.

Sem dúvida, uma ótima ideia, Juliomar!

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.

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;

Isaque, ainda não tenho acesso para subir alterações para o SVN do ACBr.

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

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.

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.

host smtp = smtp.live.com porta = 587 SSL = false TLS = true

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

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.

Verifique se a propriedade Subject está sendo preenchida. Exemplo: ACBrMail1.Subject := 'Seu Assunto';

Corrigi o problema e a correção já está disponível no SVN.

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.

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.

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