Envio NFe por email

[ornei]

Boa tarde,

fiz a atualização do acbr hoje, também fiz alguns teste apos a atualização só que na opção de enviar por e-mail percebi que nos anexo só esta o danfe em pdf e o xml esta no corpo do e-mail não esta como  anexo, copei este  xml do corpo do e-mail coloquei em editor para conferi só que não esta completo também, segue o fonte. obrigado

  

    with dmNFE_TR do
    try
      // Busca a Serie da NF-e
       ValidarSQL('SELECT E.EMPRESA FROM TB_EMPRESA E',['E.COD='+CODEMP_COR],[@Remetente]);
      //***
      lcXML := NFEletronica.Configuracoes.Arquivos.GetPathNFe(cdsNFEDATAENT.AsDatetime) + PathDelim + Trim(cdsNFECHAVE_NFE.AsString) + '-nfe.XML';
      { Verifica se o arquivo XML existe }
      if not FileExists(lcXML) then
         Raise Exception.Create('Arquivo ' + lcXML + ' não encontrado.');
      { Adiciona o e-mail para copia }
      CC := TstringList.Create;
      MinhaExtractStrings(';',Copia,CC);
      { Carrega o XML da NFe para enviar e-mail }
      NFEletronica.NotasFiscais.Clear;
      NFEletronica.NotasFiscais.LoadFromFile(lcXML);
      { Configura os dados do ACBr_Email }
      EMail.From := EMail.Username;
      EMail.ReadingConfirmation := Confirmacao;
      EMail.FromName := EMPRESA_COR;
      { Gera mensagem para ser enviada }
      mmEmailMsg.Lines.Text:=format(mmEmailMsg.Lines.Text,[LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10),
                                                           NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome,
                                                           FloatToStrF(NFEletronica.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF,ffNumber,10,2),
                                                           NFEletronica.NotasFiscais.Items[0].NFe.Emit.xNome]);
      { Envia o e-mail }
      NFEletronica.NotasFiscais.Items[0].EnviarEmail(Para
                                                     , Trim(FConfiguracaoEmail.EmailAssunto) + ' n. '+ LFill(IntToStr(NFEletronica.NotasFiscais.Items[0].NFe.Ide.cNF),10)
                                                     , mmEmailMsg.Lines
                                                     , True  // Enviar PDF junto
                                                     , CC    //Lista com emails que serão enviado cópias - TStrings
                                                     , nil); // Lista de anexos - TStrings
      ExibirMsg('XML e DANFE da Nota Fiscal ' + LFIll(cdsNFENUMNF.AsString,9) + ' enviada com sucesso!','Nota Fiscal Eletrônica');
    finally
      CC.Free;
    end;

 

[ornei]

boa tarde, 

com relação ao xml estar errado, fiz outra conferencia no xml e esta tudo ok, a questão e q ele não esta como anexo.

Obrigado

[ornei]

Bom dia

também pelo exemplo (compilado no delphi xe10.1)  esta ocorrendo, o  xml vai  abaixo do texto do email e não como anexo, estou usando o delphi 7 com a ultima atualização, ainda não consegui contornar o problema.

obrigado

[Juliomar Marchetti]

Bom dia

com o exemplo do svn ocorre o mesmo?

[ornei]

Bom  dia

Juliomar no exemplo também acontece  a mesma coisa o  xml vai no corpo do e-mail logo abaixo do texto. Demorei responder estou de ferias e o pc pessoal deu problema e tive que formatar e instalar tudo novamente. 

[ornei]

Boa tarde

Segue uma imagem do e-mail

[ornei]

Boa tarde, realmente quando envia um XML como anexo ele e adicionado como stream e vai no corpo do e-mail como a imagem acima, isto e para qualquer arquivo com a extensão XML, no ACBrNFe-Demo e  também no ACBrMail-Demo, criei um arquivo texto com um texto qualquer só que coloquei a extensão XML o texto ficou no corpo do email também e se colocar outra extensão o arquivo vai como anexo, estou  com a ultima revisão 14570. Alguém já percebeu esta alteração no envio. 

[BigWings]

33 minutos atrás, ornei disse:

Boa tarde, realmente quando envia um XML como anexo ele e adicionado como stream e vai no corpo do e-mail como a imagem acima, isto e para qualquer arquivo com a extensão XML, no ACBrNFe-Demo e  também no ACBrMail-Demo, criei um arquivo texto com um texto qualquer só que coloquei a extensão XML o texto ficou no corpo do email também e se colocar outra extensão o arquivo vai como anexo, estou  com a ultima revisão 14570. Alguém já percebeu esta alteração no envio. 

Que cliente de email é esse? Não é ele que está fazendo tratamento do XML como se fosse corpo do email?

Já tentou enviar pra um gmail, por exemplo, pra ver se ocorre o mesmo?

[ornei]

BigWings a questão não e o gerenciador, que é o IncrediMail, esta imagem e de como estou recebendo o email pelo acbrnfe demo, no caso a danfe em pdf fica como anexo e o xml no corpo do e-mail.

[BigWings]

16 minutos atrás, ornei disse:

BigWings a questão não e o gerenciador, que é o IncrediMail, esta imagem e de como estou recebendo o email pelo acbrnfe demo, no caso a danfe em pdf fica como anexo e o xml no corpo do e-mail.

Se você tem certeza...

Não lembro de ter visto nenhum relato no fórum sobre problema parecido.

[ornei]

BigWings pela imagem você pode ver que o email recebido foi do projeto ACBrNFe, na direita só tem o PDF como anexo. não fiz nenhuma alteração no fonte só compilei e configurei os caminhos, email e certificado e enviei o email por ele.

[ornei]

Bom dia

BigWings não tinha entendido o que você quis dizer  com o gerenciador, testei em vários servidor de e-mail com Gmail, Yahoo, Hotmail e o servidor da empresas deu certo, o Yahoo tem que visualizar para depois salvar, não salva direto,  incredimail deu errado com a imagem acima, mas ante dava tudo certo em todos. Valeu pela atenção. Obrigado

[Luciano César Gimenez]

Ola pessoal boa tarde, aproveitando esse assunto, depois que migrei a versão 3.10 para 4.0 e comecei a atualizar alguns clientes, com a versão 4.0, alguns clientes reclamaram que quando enviam Email da nota apenas o PDF é anexado. 

Fiz alguns testes e realmente quando os destinatários são yahoo estão recebendo apenas o PDF anexado..(alguns provedores também estão recebendo apenas o PDF anexado).

Os que enviei para provedores como: gmail, hotmail/outlook e nosso provedor pessoal, recebem normal o XML e o PDF. 

ps: voltei o executavel da versão antiga 3.10 e voltou a enviar normal os anexos. 

Luciano

NFE 4.0.

Delphi 7

 

[BigWings]

Enviei ajustes para o repositório para esse problema.

Favor atualizar os fontes e testar novamente.

[wandarlei]

Boa tarde a todos,

Estive estudando o exemplo do ACBrMail, e gostei muito da propriedade de "Incluir Imagem em HTML", contudo não consegui fazer a inclusão pelo comando: 

ACBrNFe.NotasFiscais.Items[0].EnviarEmail(vls_Para, vgs_Assunto, MEM_Email.Lines, True, vlt_CC, vlt_Anexos);

Estudando o código vi que é necessário inclusão da descrição do anexo, assim sendo fiz uma mudança no arquivo "ACBrDFe.pas" que esta anexado, para tratar a descrição do anexo.

Se a mudança for válida verificar e subir para snv. 

Grato.

Wandarlei.

ACBrDFe.zip