Ir para conteúdo
  • Cadastre-se

dev botao

Anexo.7z AcbrMail


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

Recommended Posts

Boa tarde!

Fiz uma rotina para anexar dois arquivos um .pdf ou .7z porém se eu enviar somente o .pdf vai normal seu eu enviar o .7z nem envia da "unable to send mail".

Se eu desativar o antivirus que no caso é o Avast ele envia normal e também realiza o download no e-mail pelo navegador.

Minha dúvida é o seguinte, tenho uma outra rotina utilizando apenas os componentes da paleta indy10, no caso desta rotina o anexo vai normal com o antivirus ativo, agora usando o AcbrMail não vai tenho que desabilitar o antivirus, será que vcs podem me ajudar se errei em algum ponto, abaixo segue a rotina pra anexar e enviar os anexos, agradeço desde já pela ajuda de todos.

try //envia email
  ACBrMail1.Clear;
  ACBrMail1.From := cdstbConfigEmailemail_remetente.AsString;
  ACBrMail1.FromName := cdstbConfigEmailnome_remetente.AsString;
  ACBrMail1.Host := cdstbConfigEmailhost_smtp.AsString; // troque pelo seu servidor smtp
  ACBrMail1.Username := cdstbConfigEmailusuario.AsString;
  ACBrMail1.Password := cdstbConfigEmailsenha.AsString;
  ACBrMail1.Port := cdstbConfigEmailporta.AsString; // troque pela porta do seu servidor smtp

  if cdstbConfigEmailssl.AsInteger = 1 then
    begin
      ACBrMail1.SetSSL:= true;
    end else begin
      ACBrMail1.SetSSL:= false;
    end;

  if cdstbConfigEmailtls.AsInteger = 1 then
    begin
      ACBrMail1.SetTLS:= true;
    end else begin
      ACBrMail1.SetTLS:= false;
    end;

  ACBrMail1.AddAddress(query.FieldByName('pa_email_contador').AsString,'');
  ACBrMail1.Subject := 'Arquivos XML e PDF NFe - [' +
    query.FieldByName('pa_cnpj').AsString + '] ' + query.FieldByName('pa_razao').AsString; // assunto
  ACBrMail1.IsHTML := True; // define que a mensagem é html
  ACBrMail1.ReadingConfirmation := True; //solicita confirmacao de leitura
  ACBrMail1.Body.Text :=
  '<html>'+#13+#10+
  '<head>'+#13+#10+#13+#10+
  '  <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+
  '</head>'+#13+#10+
  '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+
  '<h1>' + 'Segue anexo arquivos XML e PDF das NFe emitidas no periodo de ' +
    DateEdit1.Text + ' à ' + DateEdit2.Text + '.'+ '<br><br>' +
    fm_menu.Edit2.Text +
    '<br>' + query.FieldByName('pa_fantasia').AsString + ' - Fone: ' +query.FieldByName('pa_fone').AsString   + '</h1><br>'+#13+#10+
  '</body>'+#13+#10+
  '</html>'+#13+#10;
  ACBrMail1.AltBody.Text := 'Segue anexo arquivos XML e PDF das NFe emitidas no periodo de ' +
    DateEdit1.Text + ' à ' + DateEdit2.Text + '.';

  anexos:= TStringList.Create;
  anexos.Add(dm.vPastaTemporaria + '\NFeexport\NFe.7z');
  anexos.Add(dm.vPastaTemporaria + '\NFeexport\NFe_relatorio.pdf');
  for I := 0 to anexos.Count-1 do
    begin
      ACBrMail1.AddAttachment(anexos);
    end;
  ACBrMail1.Send;
except
  on E:Exception do begin
     application.MessageBox(pChar('Erro ao enviar e-mail !' + #13 + #13 + E.Message + #13 + #13 +
     'Consulte suporte técnico (16)98133-6597/(16)98164-3146!' + #13 + #13),'Aviso',MB_ICONINFORMATION);
     exit;
  end;
end;
anexos.Free;
 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Talvez a Indy configure os MimeTypes, de forma diferente...


Sugiro entrar em contato com o suporte do antivirus... para saber do que ele não gosta...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Fundadores

Com a ajuda do @Rafael Dias, adicionamos nos fontes do SVN, novas definições de MimeTypes...

Isso deve corrigir o problema... pois sem as definições de MimeTypes, os anexos desconhecidos são categorizados como "application/octet-stream"... e provavelmente é isso que o antivírus não está gostando

 

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • 11 meses depois ...
  • Este tópico foi criado há 2213 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.