Envio de email erro

[Caetano]

Boa noite

Mas uma vez eu aqui desesperado, mas com o tempo vou pegando o jeito.

Estou tentando enviar o email contendo o xml, usei o código doexemplo, mas eu informo no OpenDialog certinho porém me retorna isso, sendo que não foi esta o diretório informado.

---------------------------

Venda nfe

---------------------------

Cannot open file "D:\Fontes\42121012064005000167550010000011021530806589-NFe.xml". O sistema não pode encontrar o arquivo especificado.

---------------------------

OK

---------------------------

Não sei onde ele esta pegando isso. coloquei vários ponteiros mas esta tudo correto nesta linha que retorna a mensagem.

for i := 0 to Anexos.Count - 1 do begin

m.AddPartBinaryFromFile(Anexos[0], p);

end;

Att;

Caetano

[Italo Giurizzato Junior]

Bom dia Caetano,

Você verificou em qual pasta esta sendo salvo os XMLs das NFe?

É na pasta D:\Fontes ?

Acredito que o problema é configuração, você não esta informando corretamente em que pasta esta as NFe.

[Caetano]

Bom dia Italo

Eu estou salvando em uma pasta dentro do próprio sistema D:\Soft\Arquivos NFe\NFE\201210\NFe, já enchi de ponteiro, mas quando chega nessa linha acontece o erro. Não sei de onde esta pegando este diretório...sinistro

Eu tinha o acbr de alguns meses atrás, quando fazia testes ainda e funcionava..não sei porque agora acontece isso.

Agradeço

Att;

Caetano

[Italo Giurizzato Junior]

Você criou um novo form para o envio do email ou é o mesmo utilizado para a emissão da NFe?

Volto a dizer, para mim é configuração, esta faltando informar em qual pasta esta os XMLs.

[milago]

Estou com o mesmo problema. Atualizei os fontes ontem e depois disso esta dando este erro.

Faço os seguintes comandos e no enviar email ele dá erro ao localizar o arquivo .xml:

NFeAtual.Enviar(Lote);

NFeAtual.NotasFiscais.Items[0].EnviarEmail(SmtpHost, SmtpPort, SmtpUser, SmtpPass, SmtpUser, Suporte, EmailAssunto, EmailMsg, EmailSSL, True);

A nota está aprovada normalmente mas da erro no envio do email.

[milago]

Olhando melhor acredito que o problema esteja na linha 287 da unit ACBrNFeNotasFiscais

AnexosEmail.Add(copy(NFe.infNFe.ID, (length(NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml');

Esta linha da um Add somente no nome do arquivo não setando o caminho pelo que entendo

[Caetano]

E estou usando outro form. Dias atras vinha usando da mesma forma e funcionava. Parece ser configuração mas por incrivel que pareça eu coloquei ShowMessage() e o diretório esta certo até o momento do erro..como falei sem lógica, mas acontece

for i := 0 to Anexos.Count - 1 do begin

m.AddPartBinaryFromFile(Anexos[0], p);

end;

[André Ferreira de Moraes]

Enviei uma correção para o SVN, verifique se o problema ainda ocorre.

[milago]

No teste que fiz o email foi perfeitamente sem erros. Foi executado na correção o "SaveToStream(StreamNFe);" pois o NomeArq esta vazio.

[André Ferreira de Moraes]

No teste que fiz o email foi perfeitamente sem erros. Foi executado na correção o "SaveToStream(StreamNFe);" pois o NomeArq esta vazio.

Não entendi, vc fez alguma correção no código pra funcionar?

[milago]

Não. apenas atualizei os fontes. Só quiz dizer q na execução ele executou o saveto stream da linha 295 do ACBrNFeNotasFiscais ao invez do SaveToFile da linha 290