Erro de email Unable to Login

[johnbh3]

Olá,

Sei que existem outros posts aqui sobre isso.

Mas eu já tentei de toda forma.
Se eu testar com yahoo, gmail, o envio de nota fiscal funciona.

Agora toda vez que se trata de um provedor proprio da pau

 

Vou fornecer uns dados se alguem puder testar ai.
Host: smtp.httinformatica.com.br
usuario: [email protected]
senha: jose2017
porta: 587

[RicardoVoigt]

Bom dia, eu estava com o ACBrMonitorPLUS aberto aqui e fiz um teste na aba E-mail.

No campo "Seu e-mail" eu coloquei o meu endereço de e-mail e deu erro "Unable to send MailTo". Testei com 2 diferentes e deu o mesmo erro.

Se eu coloco o mesmo e-mail da tua conta [email protected] no campo "Seu e-mail" funcionou corretamente.

Parece ser um bloqueio no seu smtp/provedor...

Att

Ricardo

 

[johnbh3]

Nao entendi bem o que vc disse não

VocÊ testou meu email   [email protected]  e deu certo?

POrque como pode ser provedor ? se no outlook fuciona normal?

 

[RicardoVoigt]

tentei enviar um e-mail para mim mesmo, e deu erro "SMTP Error: Unable to send MailTo".

Eu não testei em programa cliente de e-mail (outlook, thunderbird, ...), apenas no ACBrMonitorPLUS.

Deveria funcionar igual.

Att

Ricardo

Editado 9 Janeiro, 2017 por RicardoVoigt
Deveria funcionar igual.

[johnbh3]

Pois eh

Estranho então 
Porque qualquer email que tento de provedor

[email protected] 
Sempre da erro.
 

Mas eu testei no Demo - ACBrNFe
Nele tive sucesso.

      ACBrMail1.Host := edtSmtpHost.Text;
      ACBrMail1.Port := edtSmtpPort.Text;
      ACBrMail1.Username := edtSmtpUser.Text;
      ACBrMail1.Password := edtSmtpPass.Text;
      ACBrMail1.From := edtSmtpUser.Text;
      ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - Conexão Segura
      ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS
      ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email
      ACBrMail1.UseThread := False;           //Aguarda Envio do Email(não usa thread)
      ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe';

      ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text,
                                               mmEmailMsg.Lines
                                               , True  // Enviar PDF junto
                                               , CC    // Lista com emails que serão enviado cópias - TStrings
                                               , nil); // Lista de anexos - TStrings

 

No meu aplicativo uso assim - Mas não e a mesma coisa?
No meu aplicativo uso componente
 

  FrmPrincipal.ACBrMail1.SetSSL   :=True;
  FrmPrincipal.ACBrMail1.SetTLS   :=True;

  FrmPrincipal.ACBrMail1.FromName := NOME;
  FrmPrincipal.ACBrMail1.Host     := MAIL_SMTP; // troque pelo seu servidor smtp
  FrmPrincipal.ACBrMail1.Username := MAIL_USUARIO;
  FrmPrincipal.ACBrMail1.Password := MAIL_SENHA;
  FrmPrincipal.ACBrMail1.Port     := MAIL_SMTP_P; // troque pela porta do seu servidor smtp

FrmPrincipal.ACBrMail1.Send;

Editado 9 Janeiro, 2017 por johnbh3

[johnbh3]

Ja resolvi!
Obrigado !!

[RicardoVoigt]

Era no provedor?

Att

Ricardo

[johnbh3]

Sinceramente não!

Como no ACBrDemo não deu erro. Então comecei achar que o erro fosse mesmo meu. Ai observei, que não obedecia a configuração abaixo como FALSE

 FrmPrincipal.ACBrMail1.SetSSL   :=False;
  FrmPrincipal.ACBrMail1.SetTLS   :=False;

O codigo que eu errei so obedecia como TRUE. Se fosse FALSE eu deixava acima como TRUE. 

[RicardoVoigt]

Estranho nao ter funcionado no AcbrMonitorPlus...

Vc deve ter recebido os emails de teste...

Att

Ricardo