Erro unable to send EmailFrom

[AllyRafhiyy E N Nunes]

erro: unable to send EmailFrom, estou usando o sparkpost

 

ACBrMail1.Clear;

    Femail.GetEmail;

    ACBrMail1.From     := LowerCase(Femail.Email_de);
    ACBrMail1.FromName := vNome;
    ACBrMail1.Host     := Femail.servidor;
    // troque pelo seu servidor smtp
    ACBrMail1.Username := LowerCase(Femail.usuario);
    //ACBrMail1.From := LowerCase(Femail.usuario);
    ACBrMail1.Password := Femail.Senha;
    ACBrMail1.Port     := Femail.porta;
    ACBrMail1.SetSSL := false;
    ACBrMail1.SetTLS := true;

    ACBrMail1.DefaultCharset := TMailCharset(27);
    ACBrMail1.IDECharset := TMailCharset(15);

    // troque pela porta do seu servidor smtp

    ACBrMail1.IsHTML := true;

    if Femail.SSL then
      ACBrMail1.SetSSL := true;

    if Femail.TLS then
      ACBrMail1.SetTLS := true;

    para := LowerCase(edtEmail.Text);
    ACBrMail1.AddAddress(para, '...');

    if AnexaArquivo then
    begin
      ACBrMail1.Subject := EdtAssunto.Text;
      ACBrMail1.AltBody.Add('Enviado Por / ' + Dados.qryEmpresaRAZAO.AsString);
      ACBrMail1.AltBody.Add(edtMensagem.Text);
      ACBrMail1.ClearAttachments;
      for i := 0 to LstAnexo.Items.Count - 1 do
      begin
        ACBrMail1.AddAttachment(LstAnexo.Items.Strings[i], vTituloAnexo);
      end;
      ACBrMail1.Send(false);
    end;
quando tento enviar o email da esse erro: anexo

[Daniel Simoes]

Verifique se as instruções desse tópico, ajudam 

 

[AllyRafhiyy E N Nunes]

Daniel simoes, obrigado! resolvi era a senha key que estava faltando alguns digitos!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.