ACBREMAIL

Hbf Desenvolvimento · 13 Dezembro, 2020

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 · 13 Dezembro, 2020

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;