Ir para conteúdo
  • Cadastre-se

dev botao

ACBrNFe - Erro envio de e-mail com mensagem


  • Este tópico foi criado há 2526 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia galera, estou tentando fazer o envio de um e-mail utilizando ACBrNFe e estou tendo um AV. O problema ocorre quando adiciono uma mensagem no corpo do e-mail.

Debugando achei onde ocorre o problema.

Unit: ACBrDFE
Linha: 297, mais especificamente nesse trecho de código:

  if Assigned(sMensagem) then
  begin
    MAIL.Body.Text := sMensagem.Text;    <------------ Aqui ocorre o problema
    MAIL.AltBody.Text := (StripHTML(sMensagem.Text));
  end;

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
27 minutos atrás, Maurício Sareto disse:

Bom dia galera, estou tentando fazer o envio de um e-mail utilizando ACBrNFe e estou tendo um AV. O problema ocorre quando adiciono uma mensagem no corpo do e-mail.

Debugando achei onde ocorre o problema.

Unit: ACBrDFE
Linha: 297, mais especificamente nesse trecho de código:

  if Assigned(sMensagem) then
  begin
    MAIL.Body.Text := sMensagem.Text;    <------------ Aqui ocorre o problema
    MAIL.AltBody.Text := (StripHTML(sMensagem.Text));
  end;

Usando o exemplo do ACBr ocorre omesmo?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Juliomar, o problema estava na conversão de String para StringList aqui, resolvido... Obrigado 

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

@Juliomar Marchetti Identifiquei um outro problema, ao enviar o e-mail do acbrNFE através do método enviarEmail, o sistema não enviar o replyTo. Se enviar do ACBrMail vai tranquilo, porém do AcbrNFe não.

Identifiquei que dentro da Unit ACBrDFe o método em questão não recebe como parâmetro o ReplyTo, sendo que, dentro do método o componente de email(acbrMail) associado ao AcbrNFe é limpo. Acredito que esteja ai o problema. 

Linha 207 do ACBrDfe:

MAIL.Clear;

Ps. O problema ocorre também no demo.

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
2 horas atrás, Maurício Sareto disse:

@Juliomar Marchetti Identifiquei um outro problema, ao enviar o e-mail do acbrNFE através do método enviarEmail, o sistema não enviar o replyTo. Se enviar do ACBrMail vai tranquilo, porém do AcbrNFe não.

Identifiquei que dentro da Unit ACBrDFe o método em questão não recebe como parâmetro o ReplyTo, sendo que, dentro do método o componente de email(acbrMail) associado ao AcbrNFe é limpo. Acredito que esteja ai o problema. 

Linha 207 do ACBrDfe:

MAIL.Clear;

Ps. O problema ocorre também no demo.

Olha na linha do ACBrDFe que tenho no svn não corresponde ao que está dizendo aqui !

acho que está trocando as bolas da unit que alterou, por isso sempre pedimos que anexe a unit que modificou

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Bom dia @Juliomar Marchetti, eu acabei não fazendo as mudanças porque como é na classe DFe vai atingir todas as outras classes que são descendentes da mesma. Não sei se seria melhor alguém que esteja envolvido com o ACBr fazer, mas caso não veja problema eu posso me dispor sem problemas.

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

@Juliomar Marchetti sei que deves estar atarefado, se achar que posso aplicar as alterações eu faço sem problemas

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Em 18/04/2017 at 16:57, Maurício Sareto disse:

@Juliomar Marchetti sei que deves estar atarefado, se achar que posso aplicar as alterações eu faço sem problemas

Fique a vontade para alterar testar e sugerir a mudança

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Em anexo todas as units alteradas para avaliação, todas funcionando o replyTo...

ACBrDFe.pas

ACBrNFe.pas

ACBrNFeNotasFiscais.pas

ACBrNFSeNotasFiscais.pas

ACBrNFSe.pas

 

ACBrCTe.pas

ACBrMDFeManifestos.pas

ACBrMDFe.pas

ACBrCteConhecimentos.pas

Editado por Maurício Sareto

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

Pessoal identifiquei um pequeno problema, meio chato no caso...

Ao enviar o email apenas com replyTo, sem CC e CCo, os emails que estão no reply, estão recebendo uma copia do original. Oque esta me intrigando e que esses emails são adicionados no CCo, mas não consegui identificar o porque. segue imagem em anexo...

Ps. Acontece o mesmo no AcbrMailDemo...

email.png

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Não consegui compreender o seu post... Por favor descreva melhor o problema... e de preferência, usando o demo do ACBrMail

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Daniel, usando o demo do ACBr, adicione dois e-mails no replyTo. Depois envie o e-mail para um destinatário diferente.

Apos fazer isso, acesse os e-mails que você adicionou no replyTo e veja que os mesmos receberam um copia do e-mail enviado.

Apos acesse o e-mail que foi destinado e verifique que os email adicionados no replyTo estão indicados para receber uma copia oculta, oque não deveria acontecer, o replyTo deveria ser apenas para receber a resposta, não deve nem receber uma copia nem estar indicado como CCo do e-mail.

EL Soluções em Informática

Desenvolvimento  e Suporte (ERP, NF-e, Sped Fiscal, EFD Contribuições, Emissor de Cupom Fiscal)
Ronda Alta - RS

(54)3364-1588
www.elinfo.com.br

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Humm.. estranho... realmente existe um código para enviar copias do email para o ReplyTo, em ACBrMail.pas

  // Sending Copies to Reply To //
  c := fReplyTo.Count;
  if c > 0 then
    MailProcess(pmsSendReplyTo);

  for i := 0 to c - 1 do
  begin
    for vAttempts := 1 to fAttempts do
    begin
      if fSMTP.MailTo(GetEmailAddr(fReplyTo.Strings[I])) then
        Break;

      if vAttempts >= fAttempts then
        SmtpError('SMTP Error: Unable to send ReplyTo list.');
    end;
  end;

Aparentemente isso sempre esteve no componente, desde a primeira versão, que o @Jean Patrick subiu...

Vou tentar descobrir, o "porque" disso...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2526 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.

The popup will be closed in 10 segundos...