Enviar correo Office365

[jalcantara]

Saludos muchachos,

Tengo esta función en Delphi7 para enviar correo desde office365 y funciona perfecto, el problema es que cuando la llevo a delphi 10.4 no funciona, no me da ningun error simplemente el mensaje no llega a la bandeja de salida.

Si alguien puedes ver algún fallo favor ayudarme.

Nota: esta función utiliza la clase EASendMailObjLib_TLB, podría ser la del problema, pero les repito no me da ningún error y en delphi 7 funciona bien.

Código Delphi [-]
// Enviar correo con office 365
Function TfEnviarCorreo.SendEMailOffice365(vFromAdress, vSubject, vBody, vAttachment,
  vFromName, vToAdress, vHost, vUserName, vPassword: String; vPort: integer): String;
 var oSmtp : TMail;
begin
  oSmtp := TMail.Create(Application);
  oSmtp.LicenseCode := 'TryIt';

  oSmtp.FromAddr := vFromAdress;
  oSmtp.AddRecipientEx(vToAdress, 0);
  oSmtp.Subject := vSubject;
  oSmtp.BodyText := vBody;
  oSmtp.ServerAddr := vHost;
  oSmtp.ServerPort := vPort;
  oSmtp.AutoConnect := true; //ConnectSSLAuto;
  oSmtp.UserName   := vUserName;
  oSmtp.Password := vPassword;

  if oSmtp.SendMail() = 0 then
  begin
     // insertando gestion
  Global.InsertGestion(qListaEmailEnviarCasoId.Text,
                       qListaEmailEnviarCodigoCliente.Text,
                       Date(),
                       FormatDateTime('HH:mm',time()),
                       FormatDateTime('HH:mm',time()),
                       UniMainModule.qParametrosGestionEnvioCorreo.text,
                       'Envio de correo electronico ('+fEnviarCorreo.eAsunto.Text+')',
                       qListaEmailEnviarCedulaDeudor.Text);
  end
  else
end;

[Casimiro Notevi]

Bienvenido a clubdelphi
No olvides leer nuestra guía de estilo, gracias.
Y recuerda usar las etiquetas para código, ejemplo:

[Casimiro Notevi]

Empezado por jalcantara

if oSmtp.SendMail() = 0 then

¿Devuelve algún valor distinto de cero?

[jalcantara]

Saludos Casimiro,

Perdón por la tardanza en este tema que me urge tanto, pero tuve algunos inconvenientes.

Si devuelve 1, me supongo porque el correo no se envía.