Pido ayuda para enviar correos desde formulario

   Primero de todo gracias por mantener este foro, que por lo que veo es muy activo.

Mi problema y para el que pido ayuda es el siguiente.

Tengo una aplicación que tiene que enviar correos desde un formulario.
La cuenta es de office 365 y utilizo la siguiente configuración:

Dim MiCorreo As CDO.Message
Dim Configuration
Set MiCorreo = New CDO.Message
Set Configuration = CreateObject("CDO.Configuration")

        Configuration.Load -1 ' CDO Source Defaults
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com" 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' 587
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "usuario@hotmail.com" 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "contraseña" 
        Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True 
        Configuration.Fields.Update

Al final, utilice el puerto que utilice (25, 587, 465, etc...), siempre me aparece el mensaje de error de automatización.

LLevo varios días buscando por internet, y todas las soluciones que al gente le funciona a mi no :.(

Copio literalmente los códigos de la gente, adaptándole mis datos de usuario y contraseña, y no hay forma de enviar correos.

Si alguien tiene una rutina en access que le funcione le agradecería que me la compartiese.

Un saludo y feliz año.

Pido ayuda para enviar correos desde formulario

Aplicaciones poco seguras y la cuenta de Google