Envio De Cc-E Por E-Mail

[RodrigoFernando]

Olá amigos, estou terminando de implementar a CC-e utilizando os componentes da ACBR e me deparei com a seguinte situação.

Faço o envio do evento usando:  ACBrNFe1.EventoNFe.Evento.Clear;

                                                     ACBrNFe1.EventoNFe.LerXMLFromString(...);

                                                     ACBrNFe1.EnviarEmailEvento(...)

 

O e-mail esta chegando ao destinatário, porém apenas com o pdf anexado. Gostaria de saber se o xml também deveria estar anexado com este procedimento ou se faltou alguma coisa.

Obs: Não informo anexos no "EnviarEmailEvento", o pdf já é anexado automaticamente.

 

Se alguém que tenha tido esta experiência puder me ajudar serei muito grato.

 

Abraço a todos !

[ricardo_casc]

Bom dia Rodrigo, chegou a testar com o Demo ?

[RodrigoFernando]

Bom dia Ricardo !

Testei pelo demo e vai o xml anexado, porem ele é anexado através do  Evento.Add(OpenDialog1.FileName);

Gostaria de saber se apenas carregando o xml com o  "ACBrNFe1.EventoNFe.LerXMLFromString(...);" teria como ele ja anexar automaticamente o xml como fez com o pdf.

 

Se não me engano no envio da nf-e com o        ACBrNFe1.NotasFiscais.Clear;

                                                                           ACBrNFe1.NotasFiscais.LoadFromString(...);
                                                                           ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(...)
ele ja faz isso automatico (anexa xml e pdf).


Sabe se existe alguma configuração para fazer isso ?

Obrigado pela atenção !

[ricardo_casc]

Boa tarde Rodrigo, eu faço igual ao demo e funciona perfeitamente, lembrando que sempre que mandar um evento tem que mandar o xml da NFe, se vc reparar o demo manda a CCe em anexo, ou seja, na string list.

[RodrigoFernando]

Boa tarde Ricardo... 
Como eu armazeno o xml no banco de dados, gostaria que a aplicação fizesse isso sozinha, sem precisar o usuario ter que selecionar o xml, para minimizar a possibilidade enviar o xml errado.

no meu caso eu armazeno o xml em um campo blob do banco de dados (firebird), uma forma seria a aplicação gerar um novo arquivo xml a partir deste campo blob e anexa-la ao e-mail usando Evento.Add(...) , porém eu não sei como fazer isso...  

 

Caso alguém saiba como gerar um novo arquivo xml a partir dos dados gravados em campo blob também resolveria meu problema !

Obrigado pela atenção

 

[ricardo_casc]

já tentou utilizar, exemplo :   

 TBlobField(FieldByName('XML')).SaveToFile('Teste.xml'); 

[Carlos Tre]

Rodrigo,
 
O XML é um arquivo texto regular.

 

var
  ArqvXml : TextFile;
  NomeXml : TFileName;
begin

  NomeXml := 'ZeAntonioDaRocha.XML';
  AssignFile(ArqvXml,NomeXml);
  Rewrite(ArqvXml);
  Write(ArqvXml,'TextoXMLLidoDoBlob');
  CloseFile(ArqvXml);
 

Carlos

[RodrigoFernando]

Perfeito Ricardo !!!

Usei o "TBlobField(FieldByName('XML')).SaveToFile('Teste.xml');"  gravei em uma pasta temporaria e anexei ao e-mail...  

Muito obrigado pelas dicas...  obrigado tb Carlos !


Sou novo por aqui, gostaria de saber...   preciso fechar o tópico em algum lugar?

Abraço