Enviando arquivo sintegra por email

[MARCOS JOSE DE CARVALHO 2]

Bom dia a todos. 

Como algumas empresas em minha cidade, preferem enviar o arquivo  sintegra.txt  para serem analisados, antes de serem transmitidos a SEFAZ, coloquei uma opção de envia-lo ao contador, utilizando o ACBrmail.

O arquivo sintegra.txt é enviado normalmente, porém, quando o contador vai abrir o arquivo, o mesmo está em branco (vazio), 

Não consegui resolver por aqui, Se puderem me auxiliar, agradeço.

  ACBrMail1.Clear;
  ACBrMail1.IsHTML := cbUsarHTML.Checked;
  ACBrMail1.Subject := 'mensagem' ;
  AjustaParametrosDeEnvio;
  // mensagem principal do e-mail. pode ser html ou texto puro
  if cbUsarTXT.Checked then
    ACBrMail1.AltBody.Assign(txtexto.Lines);
  if cbUsarHTML.Checked then
    ACBrMail1.Body.Assign(mBody.Lines);
  if cbUsarHTML.Checked and cbAddImgHTML.Checked then
  begin
    // Depende de: "<img src='cid:LogoACBr'>" em ACBrMail1.Body;
    if Pos('cid:LogoACBr', ACBrMail1.Body.Text) > 0 then
      ACBrMail1.AddAttachment(Dir + 'logo.png', 'meu sistema', adInline);
  end;
//  ACBrMail1.AddAttachment(('C:\arquivosintegra' +'.TXT', 'DANFE', adAttachment);
  if cbAddXML.Checked then
  begin
    MS := TMemoryStream.Create;
    try
      ACBrMail1.AddAttachment(MS, C:\arquivosintegra, adAttachment);
    finally
      MS.Free;
    end;
  end;
  ACBrMail1.Send(cbUsarThread.Checked);

 

[Juliomar Marchetti]

O mesmo não é muito grande? não seria interessante compactar o mesmo antes de enviar?

[MARCOS JOSE DE CARVALHO 2]

Vou fazer isto, obrigado Juliomar . Resolvido. 

Editado 7 Novembro, 2020 por MARCOS JOSE DE CARVALHO 2

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.