Enviar correo Office365
 

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;

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

¿Devuelve algún valor distinto de cero?

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.