Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Matheus_Polli

Problemas com envio de email (ACBrMail)

Recommended Posts

Bom dia pessoal, estou tentando realizar o envio de e-mail através do ACBrMail.

Segue o código fonte:

procedure TFrmMensagens.BitBtn1Click(Sender: TObject);
var
Anexos:TIdAttachmentFile;
i, posicao:integer;
s, email:string;
begin
with ACBrMail1 do
   begin
      Clear;
      Subject := MEN_ASSUNTO.Text;
      FromName := FrmPrincipal.QryConfigCONF_FANTASIA.AsString;
      //IdMessage1.Body.Add(MEN_MENSAGEM.Text);

      S:=Edit1.Text;
      while (S <> '') do
         begin
         posicao:=pos(';', s);
         if posicao > 0 Then
            begin
            email:=copy(s, 1, posicao-1);
            s:=copy(s, posicao+1, length(s)-posicao);
            if s = ';' then
               s:='';
            end
         else
            begin
            email:=s;
            s:='';
            End;
         AddAddress(email,'');
         End;

      For i:=0 to ListBox1.items.count-1 do
         if fileexists(Listbox1.Items.Strings) then
            AddAttachment(Listbox1.Items.Strings);
            //AddAttachment(Listbox1.Items.Strings, Listbox1.Items.Strings);

      IsHTML := False;
      AltBody.Assign(MEN_MENSAGEM.Lines);

      try
      Send();
   except on E:Exception do
      begin
      ShowMessage('Erro ao enviar email: '+E.Message);
      Abort;
      end;
   end;
   end;
Close;
end;

 

Não está dando nenhum erro, apenas não envia o e-mail. Testei realizar o envio para alguns e-mails diferente e não deu certo. Extrai as dlls do openssl na pasta do sistema também.

Share this post


Link to post
Share on other sites
1 hora atrás, Daniel Simoes disse:

Teste com o Projeto Demo do ACBr

Realizei o teste. Segue print.

Com as mesmas configurações da aplicação.

Hoje nestas configurações só utilizo SSL e faço anexo de 2 arquivos (xml e pdf) da nfe.
 

Debugando o processo do ACBrMail, não houve nenhum erro.

acbr.png

Share this post


Link to post
Share on other sites

Não há erros.. tudo indica que o email, foi enviado...  Verifique se o Destinatário não está filtrando o mesmo...


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Então, estou enviando para 3 e-mails (inclusive o meu pessoal), em nenhum deles eu recebo. Spam, lixeira nenhum...
Até testei enviar pela porta 587 sem SSL porém obtenho mesma resposta.

Share this post


Link to post
Share on other sites

se você puder me passar as informações de Login, no Privado, posso tentar fazer alguns testes...


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Não notei nada de errado... recebi o e-mail normalmente.. acredito que você tenha recebido uma cópia...

Notei que você usa Hotmail.. eu odeio o Hotmail.. ele é o campeão de "Bounce"


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Respondi por M.P., com o código que obtive sucesso, com os dados de sua conta...

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

ola Daniel, boa tarde. Há uma semana venho tendo problemas com meu cliente. Ele tem o bendito Hotmail. Ele enviava normalmente, e de repente parou de enviar, detalhe que ele digita a senha e não aparece nenhum erro, como se tivesse enviado normalmente

   Você tem alguma idéia de como devo proceder?

   Obrigado.

Share this post


Link to post
Share on other sites

Não conheço... Nunca usei (e evito) o HotMail...


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

   Só mais uma informação Daniel.

  Eu peguei a senha do email do meu cliente e fiz teste aqui, enviou de primeira.

  Ou seja, o problema é com ele lá. Teria alguma dica de algo que posso fazer?

Share this post


Link to post
Share on other sites

  Fiz a atualização. Deixei somente na pasta do meu aplicativo, tirei da pasta System32 e continua da mesma forma. Nãodá mensagem alguma de erro e não envia.

Share this post


Link to post
Share on other sites

Bom dia!

Estou com o mesmo problema. O Hotmail parou de funcionar em alguns clientes. Aqui eu consigo enviar usando o Hotmail. Apenas clientes do meu sistema que não enviam. Gmail vai normal.

Erro: unable to login:

Share this post


Link to post
Share on other sites

Verifique se há alguma configuração na conta do Hotmail, para permitir uso de SMTP externo 

Considere usar um serviço profissional de SMTP como SendGrid ou SparkPost 

(É gratuito para até 10.000 emails por mês)


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Senhores, comecei a usar o AcbrMail em um projeto novo, fiz um aplicativo de teste usando meu provedor de email na porta 465 com ssl/tls, o aplicativo de teste funciona normalmente aqui no meu PC, mas em um servidor novo na nuvem com windows 2008R2 não vai, não ocorre erro algum, o e-mal simplesmente não chega, já testei todas versões de dlls que estão na pasta OpenSSL , atualizei o windows, e nada. Instalei um client de e-mail neste servidor para testar e funciona normalmente, testei o meu aplicativo em outros servidores de clientes, em outros PCs e ele funciona, mas neste servidor na nuvem não vai. O que pode estar acontecendo ? seria algum certificado que tenho no meu PC que não tem no servidor ?

Share this post


Link to post
Share on other sites

Sempre ocorre... crie um Log e grave o Exception ocorrido... Exemplo:

procedure TForm1.ACBrMail1MailException(const AMail: TACBrMail;  const E: Exception; var ThrowIt: Boolean);
begin
  ShowMessage(E.Message);
  ThrowIt := False;
  mLog.Lines.Add('*** Erro ao Enviar o email: '+ AMail.Subject);
end;     

 


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Daniel, implementei um memo na tela para logar conforme sugestão, segue os resultados.

Meu PC, SSL=True, TLS=True Resultado: email enviado com sucesso, sem nenhum log

Meu PC, SSL=True, TLS=False Resultado: email enviado com sucesso, sem nenhum log

Meu PC, SSL=False Resultado: não envia e-mail e log: Unable to Login

Servidor Nuvem, SSL=True, TLS=True Resultado: não envia e-mail, sem nenhum log

Servidor Nuvem, SSL=True, TLS=False Resultado: não envia e-mail, sem nenhum log

Servidor Nuvem, SSL=False  Resultado: não envia e-mail e log: Unable to Login

 

Implementei um exemplo usando Indy que achei na internet e ocorre a mesma coisa, no meu pc funciona e no servidor não loga nada de erro e não chega o e-mail. A empresa que fornece o servidor me passou que não existe nenhum bloqueio, o que acabei confirmando usando o Thunderbird.

 

 

Share this post


Link to post
Share on other sites

Desculpe, não tenho mais sugestões, e não tenho como testar...


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites
Em 23/05/2018 at 10:24, Daniel Simoes disse:

Considere usar um serviço profissional de SMTP como SendGrid ou SparkPost 

(É gratuito para até 10.000 emails por mês)

Segue instruções de configuração para o ACBrMail e SparkPost

Após criar sua conta Gratuita no SparkPost, crie uma API Key, e configure-a para usar SMTP (se desejar, habilite todas opções)

Agora configure o envio de email, da seguinte forma:

  ACBrMail1.From := '[email protected]';
  ACBrMail1.FromName := 'Nome do Remetente';
  ACBrMail1.Host := 'smtp.sparkpostmail.com';
  ACBrMail1.Username := 'SMTP_Injection';
  ACBrMail1.Password := '8a93c971789791b0102d889dd8f5f9b40507288d'; // Sua API Key
  ACBrMail1.Port := '587';
  ACBrMail1.SetTLS := True;
  ACBrMail1.SetSSL := False;

 

mais informações em:
https://developers.sparkpost.com/api/smtp/
https://www.sparkpost.com/blog/setup-sparkpost-smtp-relay/

 

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...