Ir para conteúdo
  • Cadastre-se

dev botao

Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Anexo.7z AcbrMail

lucdepaula

Por lucdepaula
em ACBrTCP

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

Recommended Posts

lucdepaula Contributor

lucdepaula

Postado
Postado

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;
 

 

Rafael Dias Experienced

Rafael Dias

Postado
Postado

So uma coisa este for 

for I := 0 to anexos.Count-1 do
begin
    ACBrMail1.AddAttachment(anexos);
end;

Não deveria ser assim 

for I := 0 to anexos.Count-1 do
begin
    ACBrMail1.AddAttachment(anexos.Strings[I]);
end;

 

  • Curtir 2

 

lucdepaula Contributor

lucdepaula

Postado
  • Autor
Postado

Alterei como você sugeriu acima, mas o antivírus continua bloqueando o anexo, para envio ele não está bloqueando mais, mas no navegador web quando abro o e-mail e vou fazer o download do anexo que está em .7z ele detecta como virus...

  • Fundadores
Daniel Simoes Grand Master

Daniel Simoes

Postado
  • Fundadores
Postado

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.

  • 11 meses depois ...
  • Este tópico foi criado há 2459 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
 Compartilhar
Ir para a lista de tópicos
×
×
  • 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.