Ir para conteúdo
  • Cadastre-se

dev botao

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


Ver Solução Respondido por Claudio Stein Junior,
  • Este tópico foi criado há 3031 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • Solution

[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.

Link para o comentário
Compartilhar em outros sites

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.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3031 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.