Cannot open file ""... Erro ao enviar e-mail da NFS-e

[d2mpavan]

Bom Dia!

Estou integrando meu sistema com o ACBRNFS-e.

Já estou conseguindo enviar, emitir os DANFSe, mas quando vou enviar o e-mail surge o erro em anexo.

Porém o e-mail é enviado e inclusive chega com o XML e o PDF da NFSe.

O que poderia estar ocorrendo?

Se fosse apenas a mensagem, apesar de enviar normalmente, tudo bem.

O problema é que, como estou enviando um lote com "N" NFS-e, imagine o usuário precisar ficar pressionando "Ok" pra fechar a mensagem toda vez que um e-mail é enviado.

Do mais, a ferramenta está ótima e acredito que eu não esteja configurando algo pra estar mostrando essa mensagem de erro.

Caso necessitem de maiores informações ou algum XML, por favor me avisem.

 

Um grande abraço e todos!

Daniel

 

[Italo Giurizzato Junior]

Boa noite Daniel,

Com o programa exemplo ocorre o mesmo problema?

[d2mpavan]

Boa Noite Italo!

Não ocorre com o programa exemplo.

Notei que, em qualquer momento, seja no envio do e-mail, seja na geração e envio do lote, o meu sistema não está exibindo as mensagens de Status....

Por exemplo:  Enviando eMail...

Inclusive, as caixas de retorno no momento da Geração e envio do lote contendo o número do protocolo não aparece....

Saberia me dizer como faço para elas serem exibidas?

Estou com mais alguns problemas no envio também.... Em alguns momentos o lote é enviado normalmente e em outros me retorna uma mensagem de erro em branco, tipo uma caixa de mensagem de erro somente com o botão OK. Nesses casos, ao verificar, posso ver que o lote foi enviado e protocolado...

Desde já agradeço imensamente sua ajuda Italo!

Um Grande abraço!

 

Daniel

[d2mpavan]

Boa Noite Italo!

Quanto as mensagens de Status, já resolvi.... faltou colocar o evento "OnStatusChange" no componente ACBRNFSE.

Me desculpe....

Agora, quanto à mensagem no envio do e-mail da NFSe, essa continua.

A única diferença entre o programa Demo ACBrNFSe com o meu é que o Demo Lê o XML diretamente do arquivo e meu software está buscando o XML diretamente de um campo texto do Banco de Dados, onde também eu armazeno o XML da NFSE, o qual comparei com o conteúdo do XML salvo pelo programa e estão exatamente iguais.

 

Segue abaixo as linhas de código:

Programa Demo:

procedure TfrmDemo_ACBrNFSe.btnEnviaremailClick(Sender: TObject);
var
 vAux: String;
 sCC: TStrings;
begin
 OpenDialog1.Title := 'Selecione a NFSe';
 OpenDialog1.DefaultExt := '*-NFSe.xml';
 OpenDialog1.Filter := 'Arquivos NFSe (*-NFSe.xml)|*-NFSe.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
 OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Arquivos.PathSalvar;

 if OpenDialog1.Execute then
  begin
   ACBrNFSe1.NotasFiscais.Clear;
   ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

   if not(InputQuery('Enviar e-mail', 'Destinatário', vAux))
    then exit;

   sCC:=TStringList.Create;
   sCC.Clear;  // Usando para add outros e-mail como Com-Cópia

   ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(vAux
                                               , edtEmailAssunto.Text
                                               , mmEmailMsg.Lines
                                               , True //Enviar PDF junto
                                               , nil //Lista com emails que serão enviado cópias - TStrings
                                               , nil // Lista de anexos - TStrings
                                                );

   sCC.Free;

   MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
   MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
   LoadXML(MemoResp, WBResposta);
   PageControl2.ActivePageIndex := 1;
  end;
end;

 

 

Meu Programa:

 

procedure TFEnviaLoteNFSE.EnviaEmail;
var
 vAux, slink: String;
 sCC: TStrings;
begin
   if (Trim(MDNFSeCLI_EMAIL.AsString) <> '') and (Trim(MDNFSeNFSE_COD_VERIFICACAO.AsString) <> '') and
      (MDNFSeNF_NUMERO.Value > 0) and (MDNFSePROCESSADA.AsString = 'Sim') then
   begin

      ACBrNFSe1.NotasFiscais.Clear;
      ACBrNFSe1.NotasFiscais.LoadFromString(MDNFSeNF_INFADCFISCO.AsString,False);

      slink := ACBrNFSe1.LinkNFSe(StrToIntDef(MDNFSeNF_NUMERO.AsString, 0), MDNFSeNFSE_COD_VERIFICACAO.AsString);

      sCC:=TStringList.Create;
      sCC.Clear;  // Usando para add outros e-mail como Com-Cópia

      Memo_TXT_Email.Lines.Clear;
      Memo_TXT_Email.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'e-mail_NFS-e.TXT');

      Memo_TXT_Email.Lines.Add('Link da NFS-e: ' + slink);

      ACBrNFSe1.NotasFiscais.Items[0].EnviarEmail(MDNFSeCLI_EMAIL.AsString
                                                  , 'Envio de NFS-e - ' + MEMP_RAZAO.Text
                                                  , Memo_TXT_Email.Lines
                                                  , True //Enviar PDF junto
                                                  , nil //Lista com emails que serão enviado cópias - TStrings
                                                  , nil // Lista de anexos - TStrings
                                                   );

      sCC.Free;

      MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
      MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);
      LoadXML(MemoResp, WBResposta);
   end;
end;

 

 

 

Desculpe se ficou muito longo.

 

Mas quem puder ajudar, ficarei muito agradecido.

 

Daniel

[d2mpavan]

Boa Noite!

Encontrei o erro.

MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq);

Como eu não efetue a leitura do arquivo pelo xml, o nome do arquivo estava em branco.

 

Não efetuei o debug do meu software antes de postar aqui.

Erro primário de minha parte, mas como estou me ambientando com a ferramenta, espero que compreendam.

Não irá acontecer novamente.

Desculpem conturbar o Fórum...