ACBREMAIL

[Hbf Desenvolvimento]

Bom dia estou com este erro, alguem pode me ajudar?

 

SMTP Error: Unable to send MailFrom. 550 Request failed; Mailbox unavailable

 

Nao consigo enviar emails

[Hbf Desenvolvimento]

Pessoal deu certo simplifiquei o código e o email esta enviando direitinho...Vou deixar o código aqui caso alguém necessita

var
  dir : string;
begin
  // REMETENTE
  ACBrMail1.From := 'email';
  ACBrMail1.FromName := 'nome do responsavel ou ';
  ACBrMail1.Host := 'smtp.office365.com'; // troque pelo seu servidor smtp
  ACBrMail1.Username := 'usuario';
  ACBrMail1.Password := 'senha';
  ACBrMail1.Port := '587'; // troque pela porta do seu servidor smtp

 // DESTINATARIO
  ACBrMail1.AddAddress('emailcliente');
  ACBrMail1.Subject := 'assunto'; // assunto
  ACBrMail1.IsHTML := True; // define que a mensagem é html
  ACBrMail1.AltBody.Text := 'Segue anexo';  // TESTO DO EMAIL

  // ARQUIVO ANEXADO
  Dir := ExtractFilePath(ParamStr(0))+'\caminho\pasta\';

  ACBrMail1.AddAttachment(Dir + 'nomedoarquivo_'+arquivo+'.extensao, 'nome', adInline);

  ACBrMail1.Send;

 

[Juliomar Marchetti]

Obrigado por reportar.

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