Lentidão ao enviar email

[atlantisnanet]

Tentei mudar para uma impressora padrão instalada no meu próprio computador, mesmo resultado, o problema continua...

[wagner aragao]

André, ao usar o próprio monitorplus pela opção de enviar email dá o seguinte erro: List index (0) out of bounds.

[Kiko Fernandes]

Boa noite. Em relação ao problema do Pablo @atlantisnanet

Fiz vários testes com a versão 0.3.05.4 e não consegui detectar o problema. Porém notei que tem a ver com o PDF.

NFE.ENVIAREMAIL("[email protected]","41160507760099000179550010000001411000000018-nfe.xml","1")

Se enviar desta forma, apenas o XML ele vai sem travar.
Na versão anterior já não acontece isto.

NFE.ENVIAREMAIL("[email protected]","41160507760099000179550010000001411000000018-nfe.xml")
(Envia correto)
 

 

[André Ferreira de Moraes]

15 horas atrás, wagner aragao disse:

André, ao usar o próprio monitorplus pela opção de enviar email dá o seguinte erro: List index (0) out of bounds.

No monitor não tem opção de anexar arquivos, ele apenas pede o XML da NFe, qualquer outro tipo de arquivo vai dar erro.

[wagner aragao]

Bom dia, André. Consegui fazer alguns testes ontem, tentando enviar o email com o arquivo zip e gerou o seguinte log:

"Configuração geral gravada com sucesso
Configuração de Boletos gravada com sucesso
Dados da Sw.House gravados com sucesso
NFE.EnviarEmail("[email protected]",M:\CONTADOR\CONTADOR.ZIP,0,,)
ERRO: Nenhuma NFe encontrada no arquivo: M:\CONTADOR\CONTADOR.ZIP
"

[André Ferreira de Moraes]

Se vc deseja enviar algum anexo ao arquivo da NFe, vc deve colocar os arquivos no parâmetro [cAnexos] separados por ;(ponto e vírgula).

• NFe.EnviarEmail(cEmailDestino,cArqXML,cEnviaPDF,[cAssunto],[cEmailsCopias],[cAnexos])

Se vc quer apenas enviar o arquivo .zip sem o XML da NFe vc deve usar o objeto EMAIL:

EMAIL.Novo
EMAIL.ConfirmarLeitura(True)
EMAIL.AdicionaPara("[email protected]")
EMAIL.Assunto("Teste de e-mail")
EMAIL.TextoMensagem("Veja anexo!")
EMAIL.AdicionaAnexo("C:\arquivo.pdf")
EMAIL.Enviar

Veja o arquivo ACBrMonitor.chm disponível na pasta em que o Monitor está instalado.

[Kiko Fernandes]

Bom dia!
Eu não entendo da linguagem Delphi, então vou "palpitar" caso não tenha nada a ver, por favor desconsidere.
Voltando 4 posts eu havia comentado que ao retirar o PDF o erro não ocorria.

Procurei no fonte (Porém não tenho certeza se é nesta rotina que comanda o envio) localizei:

http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrMonitorPLUS/Lazarus/DoACBrNFeUnit.pas

Neste arquivo tem um trecho que está assim: 
 

Citar

ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Cmd.Params(0),
                                                           SubstituirVariaveis( IfThen(NaoEstaVazio(Cmd.Params(3)),Cmd.Params(3),edtEmailAssuntoNFe.Text) ),
                                                           sMensagemEmail
                                                           , (Cmd.Params(2) = '1')   // Enviar PDF junto
                                                           , CC    // Lista com emails que ser�o enviado c�pias - TStrings
                                                           , Anexos); // Lista de anexos - TStrings

Como o comando de envio é: //NFe.EnviarEmail(cEmailDestino,cArqXML,cEnviaPDF,[cAssunto],[cEmailsCopias],[cAnexos])  

Surge a dúvida.  Aonde está ,(Cmd.Params(2)='1') //Enviar PDF junto  não deveria ser ,(Cmd.Params(3)='1') //Enviar PDF junto

Caso não seja por ai, desconsidere o meu comentário.

[wagner aragao]

André. segui sua orientação e alterei a rotina de envio, porém deu o mesmo erro. Abaixo o comando e o retorno do monitor.

NFE.EnviarEmail("[email protected]",,,0,"Arquivos mensais para contabilidade",,"D:\CONTADOR\CONTADOR.ZIP")
ERRO: Arquivo  n?o encontrado.
 

[Juliomar Marchetti]

o arquivo está nesse local onde o monitor está rodando?

[wagner aragao]

Sim, Juliomar, o arquivo está na pasta D:\CONTADOR.

Editado 2 Junho, 2016 por wagner aragao

[Kiko Fernandes]

30 minutos atrás, wagner aragao disse:

André. segui sua orientação e alterei a rotina de envio, porém deu o mesmo erro. Abaixo o comando e o retorno do monitor.

NFE.EnviarEmail("[email protected]",,,0,"Arquivos mensais para contabilidade",,"D:\CONTADOR\CONTADOR.ZIP")
ERRO: Arquivo  n?o encontrado.
 

Boa tarde Wagner. Acho que vc confundiu.
O André comentou:

 

Citar

 

Se vc quer apenas enviar o arquivo .zip sem o XML da NFe vc deve usar o objeto EMAIL:

EMAIL.Novo
EMAIL.ConfirmarLeitura(True)
EMAIL.AdicionaPara("[email protected]")
EMAIL.Assunto("Teste de e-mail")
EMAIL.TextoMensagem("Veja anexo!")
EMAIL.AdicionaAnexo("C:\arquivo.pdf")
EMAIL.Enviar

 

Ou seja usando desta forma não utiliza o NFe.EnviarEmail()

Exemplo
Enviar comando:
EMAIL.Novo     para ENTNFE.TXT  - Resposta: OK: Novo E-mail iniciado! 
e assim por diante.
Até que o comando:  EMAIL.Enviar dispara o envio.

 

[André Ferreira de Moraes]

45 minutos atrás, wagner aragao disse:

André. segui sua orientação e alterei a rotina de envio, porém deu o mesmo erro. Abaixo o comando e o retorno do monitor.

NFE.EnviarEmail("[email protected]",,,0,"Arquivos mensais para contabilidade",,"D:\CONTADOR\CONTADOR.ZIP")
ERRO: Arquivo  n?o encontrado.
 

O comando NFe.EnviarEmail sempre exige o XML da NFe, como falado no post anterior, se deseja apenas mandar qualquer outro arquivo, use o objeto EMAIL.

[wagner aragao]

Obrigado senhores, deu certo o envio de email da forma indicada.

Agora só resta identificar o porquê de não estar conseguindo enviar email de NFE.

[atlantisnanet]

Beleza Wagner, ou seja voltamos ao problema original. Continuo usando a versão antiga sem problemas. Mas preciso atualizar... Então fico no aguardo!

[André Ferreira de Moraes]

2 minutos atrás, atlantisnanet disse:

Beleza Wagner, ou seja voltamos ao problema original. Continuo usando a versão antiga sem problemas. Mas preciso atualizar... Então fico no aguardo!

Vc consegue usar normalmente os comandos NFe.ImprimirDANFE e NFe.ImprimirDANFEPDF?

[atlantisnanet]

Realmente André, o comando imprimir também não está funcionando, o monitor trava assim como o envio por e-mail, abaixo comando:

NFE.IMPRIMIRDANFE("C:\Atlantis\8\Dados\41160507760099000179550010000001411000000018-nfe.xml","CutePDF Writer",1,"",False,"",False,False)

DETALHE: Na versão antiga funciona TUDO PERFEITAMENTE como disse antes.

[André Ferreira de Moraes]

A opção Mostrar Preview está habilitada?

[atlantisnanet]

No monitor a opção "Mostrar preview antes da impressão" está desabilitada.

[André Ferreira de Moraes]

Teste com esta versão e anexe seu arquivo de configuração(ACBrMonitor.ini).

ACBrMonitor.zip

[Kiko Fernandes]

Boa tarde!
Pelos testes que fiz normalizou.
- Testei o envio de email com o PDF anexado;  (Quando informava 1 para anexar  o PDF, parecia que não conseguia gerar o PDF)
- Imprimir DANFE;
- Imprimir DANFEPDF.

[atlantisnanet]

Resolvido o problema André! Testei e funcionou este que me enviou! Quando lançam o monitor com esta correção?

 

[Juliomar Marchetti]

Toda a segunda é liberado a compilação conforme a informação que se passa ao assinar o SAC