Problemas com envio de email (ACBrMail)

[Matheus_Polli]

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.

[Daniel Simoes]

Teste com o Projeto Demo do ACBr

[Matheus_Polli]

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.

[Daniel Simoes]

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

[Matheus_Polli]

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.

[Daniel Simoes]

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

[Matheus_Polli]

Vou lhe enviar.

[Daniel Simoes]

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"

[Matheus_Polli]

Então Daniel, eu utilizei o envio teste para e-mail hotmail, gmail, webmail.... Nenhum chega o envio, acredito que seja algo relacionado com e-mail do cliente.

[Daniel Simoes]

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

[castrocac]

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.

[Daniel Simoes]

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

[castrocac]

   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?

[Daniel Simoes]

Então provavelmente o problema é a versão das DLLs do OpenSSL... Use a 1.0.x

http://svn.code.sf.net/p/acbr/code/trunk2/DLLs/OpenSSL/1.0.2.13/

[castrocac]

  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.

[marcelolours]

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:

[Daniel Simoes]

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)

[Ronaldo Cesar Bim]

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 ?

[Daniel Simoes]

Qual é exatamente a mensagem de erro ?

[Ronaldo Cesar Bim]

Boa tarde Daniel, não ocorre mensagem de erro.

[Daniel Simoes]

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;     

 

[Ronaldo Cesar Bim]

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.

 

 

[Daniel Simoes]

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

[Ronaldo Cesar Bim]

Blz, obrigado pelo apoio, vou tentar entrar no meu provedor e ver algumas configurações, caso eu encontre a solução irei postar aqui

[Daniel Simoes]

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/