Erro ao anexar arquivo no e-mail utilizando demo da nf-e

[Claudio Stein Junior]

Pessoal no meu projeto e utilizando a demo da nf-e no trunck2 não consigo enviar o anexo do xml. Apresenta o erro da imagem em anexo. O que pode ser?

Obrigado

[Juliomar Marchetti]

O que ele tá falando ali!

arquivo não existe!

informações errada, configurações onde vai salvar os arquivos errado!

[Claudio Stein Junior]

Juliomar eu busco o arquivo normalmemente, mas não anexa.

Segue o código:

procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject);
var
 Para : String;
 CC, AA: Tstrings;
begin
  if not(InputQuery('Enviar Email', 'Email de destino', Para)) then
    exit;

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    CC:=TstringList.Create;
    try
     //   CC.Add('[email protected]'); //outros e-mails
      //CC.Add('[email protected]');
      AA.ADD(OpenDialog1.FileName);
      ACBrMail1.Host := edtSmtpHost.Text;
      ACBrMail1.Port := edtSmtpPort.Text;
      ACBrMail1.Username := edtSmtpUser.Text;
      ACBrMail1.Password := edtSmtpPass.Text;
      ACBrMail1.From := edtSmtpUser.Text;
      ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - ConexÃo Segura
      ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS
      ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
      ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
      ACBrMail1.FromName := 'Inova Softwares';

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

Não mudei nada praticamente. Não sei o que está acontecendo.

[Juliomar Marchetti]

Mas por que tu tá sofrendo?

tu já viu no componente ACBrNFe a propriedade MAIL?

caso negativo olhe e tente usar!

[Claudio Stein Junior]

Sim eu vi está vinculado. Caso contrário ele diz para vincular. Segue propriedades. Será o problema aquele nil  no código dos anexos?

Obrigado.

 

Ainda não deu certo.

 

[Werner_Marques]

Eu estava com esse mesmo problema na minha aplicação, até postei aqui no fórum:

Resolvi colocando um caminho na propriedade "pathPDF" do componente do DANFE. No meu caso estou usando o Fortes Report.

[Claudio Stein Junior]

[RESOLVIDO]

Segue abaixo resolução do problema

procedure TFrmNFE.btnEnviarEmailClick(Sender: TObject);
var
 Para : String;
 CC : Tstrings;
begin
  if not(InputQuery('Enviar Email', 'Email de destino', Para)) then
    exit;

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
    CC:=TstringList.Create;
    try
     //   CC.Add('[email protected]'); //outros e-mails
      //CC.Add('[email protected]');

      ACBrMail1.Host := edtSmtpHost.Text;
      ACBrMail1.Port := edtSmtpPort.Text;
      ACBrMail1.Username := edtSmtpUser.Text;
      ACBrMail1.Password := edtSmtpPass.Text;
      ACBrMail1.From := edtSmtpUser.Text;
      ACBrMail1.SetSSL := cbEmailSSL.Checked; 
      ACBrMail1.SetTLS := cbEmailSSL.Checked;
      ACBrMail1.ReadingConfirmation := False; 
      ACBrMail1.UseThread := False;           
      ACBrMail1.FromName := 'Inova Softwares';

      ACBrMail1.AddAttachment(OpenDialog1.FileName);//acrescentei essa linha
    



    ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text,
                                               mmEmailMsg.Lines
                                               , true // Enviar PDF junto
                                               , CC    // Lista com emails que serao enviado copias - TStrings
                                               , nil); // Lista de anexos - TStrings


    finally
      CC.Free;
    end;
  end;
end;

Em seguida selecionei o componente da DANFE e coloquei o caminho dos PDFs como segue.

C:\NFE\pdfs\

Att e obrigado.

[Claudio Stein Junior]

6 horas atrás, Werner_Marques disse:

Eu estava com esse mesmo problema na minha aplicação, até postei aqui no fórum:

Resolvi colocando um caminho na propriedade "pathPDF" do componente do DANFE. No meu caso estou usando o Fortes Report.

Muito bom, consegui da mesma forma. Espero que ajude outros.