ACBrNFe - Erro envio de e-mail com mensagem

[Maurício Sareto]

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;

[Juliomar Marchetti]

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?

[Maurício Sareto]

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

[Maurício Sareto]

@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.

[Juliomar Marchetti]

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

[Maurício Sareto]

Errei a linha kkkkkkkkkkk

linha 277...

[Juliomar Marchetti]

Após aplicar a mudança sugerida recompilou os componentes e tentou enviar novamente e-mail para ver se resolveu?

[Maurício Sareto]

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.

[Maurício Sareto]

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

[Juliomar Marchetti]

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

[Maurício Sareto]

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 22 Abril, 2017 por Maurício Sareto

[Daniel Simoes]

Obrigado pela analise e modificações... Já adicionei no SVN, (também modifiquei as Units de GNRE)

[Maurício Sareto]

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...

[Daniel Simoes]

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

[Maurício Sareto]

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.

[Daniel Simoes]

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...