Problemas no envio de email para contas Gmail como destinatários

eflaeschen · 8 Março, 2024

Olá, espero que estejam todos bem.

Vinha utilizando o ACBrMail normalmente e agora parou. Clientes com conta GMAIL não estão mais recebendo as mensagens e recebi o seguinte retorno:

Este é o sistema de e-mail no servidor smtpi-sp221-219.uni5.net .

Lamento ter de informar-lhe que sua mensagem não pode ser entregue a um ou mais destinatários. A mensagem está anexada abaixo.

< [email protected] >: host gmail-smtp-in.l.google.com [ 64.233.186.26 ] disse: 550-5.7.1 [ 191.6.221.219 ] As mensagens sem um cabeçalho de ID de mensagem válido são não 550-5.7.1 aceito. Para obter mais informações, acesse 550-5.7.1 https://support.google.com/mail/?p=RfcMessageNonCompliant Diretrizes para remetentes de e-mail – Ajuda do administrador do Google Workspace Importante: a partir de fevereiro de 2024, o Gmail exigirá o seguinte para remetentes que enviam 5.000 ou mais mensagens por dia para contas do Gmail: autentique e-mails enviados, evite enviar support.google.com indesejados ou indesejados e revise as especificações 550 5.7.1 RFC 5322. x127-20020a6 36385000000 b005dc42946a85si12425315pgb.214 - gsmtp (em resposta ao final do comando DATA)

Configuração:
UserSession.dmAgendaClientes.ACBrMail1.Clear;
UserSession.dmAgendaClientes.ACBrMail1.Host := UserSession.vEmailHost;
UserSession.dmAgendaClientes.ACBrMail1.Port := IntToStr(UserSession.vEmailPorta);
UserSession.dmAgendaClientes.ACBrMail1.Username := UserSession.vEmailUsuarioAutenticacao;
UserSession.dmAgendaClientes.ACBrMail1.Password := UserSession.vEmailSenhaAutenticacao;
UserSession.dmAgendaClientes.ACBrMail1.From := UserSession.vEmailOperador;
UserSession.dmAgendaClientes.ACBrMail1.FromName := UserSession.vNomeOperador;
UserSession.dmAgendaClientes.ACBrMail1.SetSSL := false;
UserSession.dmAgendaClientes.ACBrMail1.SetTLS := true;
UserSession.dmAgendaClientes.ACBrMail1.ReadingConfirmation := true;
UserSession.dmAgendaClientes.ACBrMail1.UseThread := False;
UserSession.dmAgendaClientes.ACBrMail1.IsHTML := true;
UserSession.dmAgendaClientes.ACBrMail1.Priority := MP_high;
UserSession.dmAgendaClientes.ACBrMail1.Subject := 'Notificação de agendamento de reunião';

O corpo do email é um html bem simples, apenas algumas linhas
mmMensagem.Lines.Clear;
mmMensagem.Lines.add('<br>Prezado(s)');
mmMensagem.Lines.add('<br>');
mmMensagem.Lines.add('<br>Informamos que o cliente '+UserSession.vNomeOperador+' agendou reunião para as '+cbxHorario.text +' do dia '+cbxData.text);
mmMensagem.Lines.add('<br>');

.....

UserSession.dmAgendaClientes.ACBrMail1.Body.Assign(mmMensagem.Lines);

// Destinatários
UserSession.dmAgendaClientes.ACBrMail1.AddAddress(vEmailExecutor);

try
UserSession.dmAgendaClientes.ACBrMail1.Send(false);
WebApplication.CallBackResponse.AddJavaScriptToExecute(swalAlert('Confirmação','Agendamento realizado com sucesso. Verifique sua caixa postal de eMail !'));
except
AddToInitProc(swalAlert('Atenção','Problemas no envio do eMail com a confirmação do agendamento !'));
end;

Olhei a documentação indicada pelo link mas não consegui entender. Nosso provedor é a Kinghost e não usa SSL, mas usa TSL=true. O detalhe é que a mensagem cita volume acima de 5.000 envios mas eu estou mandando apenas 1 mesnagem.

Alguém poderia me ajudar, por favor ?

Obrigado.