Delphi - Error al enviar correo desde VB6

tengo este codigo :

Dim objEmail As Object
Set objEmail = CreateObject("CDO.Message")

' Configuración del servidor SMTP
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 ' Puerto SMTP para TLS
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' Usar el servidor SMTP

' Datos de autenticación
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' Autenticación SMTP
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXX" ' O usa la contraseña de aplicación

' Activar TLS (no SSL) para Office 365
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ' Desactivar SSL
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Timeout de la conexión
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpstarttls") = True ' Habilitar STARTTLS (para TLS)

' Enviar el correo
objEmail.To = "[email protected]"
objEmail.Subject = "Correo de prueba"
objEmail.TextBody = "Buen día Marcelo"
objEmail.From = "[email protected]"

' Actualizar la configuración antes de enviar
objEmail.Configuration.Fields.Update

' Intentar enviar el mensaje
On Error GoTo ErrorHandler
objEmail.Send
' MsgBox "Correo enviado correctamente", vbInformation
Exit Sub

ErrorHandler:

MsgBox "Error al enviar el correo: " & Err.Description, vbCritical


ya probe de cambiar el puerto de 25 a 587 y nunca funciona