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);