Erro, Função De Envio Do E-Mail

[medreis]

Estou com erro ao enviar o email para o cliente .

 

Ocorre o seguinte.

 

Eu faço o carregamento do XML para o ACBR pelo  ACBrNFSe1.NotasFiscais.LoadFromStream(vNfseStream),   onde o Stream é o XML de retorno na Nota fiscal do ACBR , que salvo no bando de dados

 

Chamo a função do e-mail desta forma

 

     ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(fieldByName('SMTP_HOST').AsWideString,
                                                      fieldByName('SMTP_PORTA').AsWideString,
                                                      fieldByName('SMTP_USUARIO').AsWideString,
                                                      fieldByName('SMTP_SENHA').AsWideString,
                                                      FieldByName('SMTP_EMAIL_REMETENTE').AsWideString, //e-mail do remetente
                                                      FieldByName('TOM_EMAIL').AsString,
                                                      fieldByName('SMTP_ASSUNTO').AsWideString, // Assunto
                                                      vMensagem,     // Mensagem
                                                      False,   // SSL
                                                      True,                 // Enviar em PDF
                                                      vCC,                  // sCC
                                                      nil,                  // Anexos
                                                      True,                 // Pede Confirmação de Recebimento
                                                      True,                 // Aguarda o Envio
                                                      FieldByName('TOM_EMAIL').AsString);   // Nome do remetente

 

O Sistema salva o DANFSE, na pasta PDF com o nome numero.PDF,  porem vi que gera um erro na seguinte rotina do ACBR  UNIT ACBrNFSeNotasFiscais

 

 

  if TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE <> nil
     then begin
      TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE.ImprimirDANFSEPDF(NFSe);
      // Alterado por Italo em 04/12/2012
      NomeArqPDF := Trim(NomeArq);
      if NomeArqPDF <> ''
       then begin
         NomeArqPDF := StringReplace(NFSe.Numero, 'NFSe', '', [rfIgnoreCase]);
         NomeArqPDF := PathWithDelim(TACBrNFSe( TNotasFiscais( Collection ).ACBrNFSe ).DANFSE.PathPDF) + NomeArqPDF + '.pdf';
       end
       else NomeArqPDF := StringReplace(NomeArqPDF, '-nfse.xml', '.pdf', [rfIgnoreCase]);

      m.AddPartBinaryFromFile(NomeArqPDF, p);    ///o Campo  NOMEARQPDF sempre vem em branco !! e~não anexa o PDF, nem o XML

     end;
 

 

Alguem sabe como posso resolver este problema ?

 

 

Marcio Eduardo

 

 

[Italo Giurizzato Junior]

Boa noite Marcio,

 

Desculpe pela demora em responder.

 

Existe uma falha no LoadFromStream, vou corrigir isso semana que vem.

 

Enquanto isso, antes de executar o EnviarEmail, alimente a propriedade NomeArq com o nome do arquivo XML salvo em disco.

[medreis]

Ola Italo,

 

 

Fazendo alguns testes, contornei o problema da sequinte forma, como não tenho o caminho do arquivo no disco, ou seja todos os retornos( envio RPS, retorno NFSE, retorno CANCELAMENTO) salvo no banco de dados

ao carregar o arquivo com LoadFromStream,  chamei o procedimento   ACBrNFSe1.NotasFiscais.SaveToFile, que salvou o arquivo no disco e já apontou o caminho dentro da minha estrutura de PATH.

 

Imagino que o LoadFromFile deva fazer o mesmo, visto que neste momento o carregamento do arquivo é feito em memoria.

 

Obrigado

 

[Italo Giurizzato Junior]

Boa tarde Medreis,

 

É isso mesmo.