Erro envio de XML Email,NFE 4.0

[Dataconta Sistemas]

Boa Tarde, tudo bem?

Estou com um problema começamos a atualizar nossos clientes para a versão 4.0 e começamos a receber alguns relatos de que apenas o PDF estava sendo enviado nos email, nada do XML.

Obrigado!

[Juliana Tamizou]

Boa tarde.
 

Essa sitação foi reproduzida em seu ambiente?

Att.

[Dataconta Sistemas]

Sim, trouxemos a base de dados do cliente e fizemos os testes. Que tiveram os mesmos resultados.

[José M. S. Junior]

Bom dia, chegou a testar a funcionalidade de Enviar NFe e-mail com o Demo ACBrNFE?

[Dataconta Sistemas]

Sim, testei e só envia o XML.

[José M. S. Junior]

O XML ou o PDF? Para envio do XML basta que a NFe tenha sido carregada no componente antes de chamar o método de envio. Para o PDF basta passar o parâmetro "EnviaPDF" como True na função (EnviarEmail).

[Amarildo de Matos]

Bom dia..

Para saber se o seguinte esteja recebendo,faça o testes em sistema de homologação e mande o email

para seu proprio email, e assim, conferir o que realmente esta indo.

 

[Dataconta Sistemas]

Bom dia, já fiz esses testes. Já enviei para meu próprio email e continua chegando somente o PDF. Abaixo vou deixar o código do método como estou usando. Para que possa entender melhor.

procedure TfrmEnviaNfeEmail.btnEnviaClick(Sender: TObject);
var
 Para : String;
 CC: Tstrings;
  Dir, ArqXML: String;
  MS: TMemoryStream;
  P, N: Integer;
begin
   if not  FileExists( dmnf.znfeCHAVE_NFE.AsString ) then
   raise Exception.Create('Arquivo Xml, não localizado ou inexistente!');

 try

  with fsindatanfe2 do
  begin

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.NotasFiscais.LoadFromFile(dmnf.znfeCHAVE_NFE.AsString);

//Corri
  MS := TMemoryStream.Create;
    try
      ArqXML := dmnf.znfeCHAVE_NFE.AsString;
      MS.LoadFromFile(ArqXML);
      fsindatanfe2.ACBrMail1.AddAttachment(MS, 'XML',adAttachment);
    finally
     MS.Free;
    end;
   CC        := TstringList.Create;
   Para      := edtPara.Text;
   cc.Text   := '';

  fsindatanfe2.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(Para
                                          , edtAssunto.Text
                                          , memMsg.Lines
                                          , True
                                          , cc
                                          , cc);

     ShowMessage('Email Enviado com Sucesso!');
     cc.Free;
    end;

    except
      on E:Exception do
      begin
         ShowMessage('Erro: '+ E.Message);
      end;

    end;
end;

[Italo Giurizzato Junior]

Bom dia,

Para mim tem coisa errada na sua rotina.

o trecho abaixo não precisa:

//Corri
  MS := TMemoryStream.Create;
    try
      ArqXML := dmnf.znfeCHAVE_NFE.AsString;
      MS.LoadFromFile(ArqXML);
      fsindatanfe2.ACBrMail1.AddAttachment(MS, 'XML',adAttachment);
    finally
     MS.Free;
    end;
   CC        := TstringList.Create;
   Para      := edtPara.Text;
   cc.Text   := '';

Pois ao carregar o XML como o LoadFromFile o método EnviarEmail já anexa automaticamente o XML.

Outra coisa:

fsindatanfe2.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(Para
                                          , edtAssunto.Text
                                          , memMsg.Lines
                                          , True    <==== isso esta correto, pois é o parâmetro que diz que você deseja enviar o PDF do DANFE também.
                                          , cc      <=== aqui devemos informar a lista de email que desejamos enviar também (CC- Com Cópia)
                                          , cc);    <=== isso esta errado, pois aqui devemos informar outros anexos, o correto seria informar o valor: Nil

 

Favor se basear no programa exemplo do componente.

 

[Dataconta Sistemas]

Bom dia Italo. Tudo bom? Eu já testei comentando esse trecho do código. E outra estava funcionando antes no 3.1 é uma rotina velha no sistema de 4,5 anos que nunca foi alterada.  Já observei o código da Demo. E obrigado pelo retorno. 

[Dataconta Sistemas]

Se tiver alguma ideia por favor me informe. Ficarei agradecido. 

[Italo Giurizzato Junior]

Boa tarde,

Já tentou desta forma:

with fsindatanfe2 do
 begin 
   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.NotasFiscais.LoadFromFile(dmnf.znfeCHAVE_NFE.AsString); 

   ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(Para
                                            , edtAssunto.Text
                                            , memMsg.Lines
                                            , True
                                            , nil
                                            , nil); 

   ShowMessage('Email Enviado com Sucesso!');
 end; 
 

[Dataconta Sistemas]

Já testei, resultado foi o mesmo. 

[Italo Giurizzato Junior]

Bom dia,

Isso é muito estranho.

Favor verificar se realmente o XML da nota esta sendo carregado.

Verifique também se o antivírus não esta removendo automaticamente do e-mail arquivos XML que por ventura estão em anexo.

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário