Error CDO al enviar email desde modulo access

Hola tengo el siguiente código para mandar un mensaje

Private Sub txtEnviarPedido_Click()On Error GoTo Err_txtEnviarPedido_ClickDim cdomsg As CDO.MessageSet cdomsg = New CDO.Message
With cdomsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mi password"
.Update

End With' build email parts

With cdomsg

.To = "[email protected]"

.From = "[email protected]"

.subject = "ASUNTO POR"

.TextBody = "AQUÍ VA EL TEXTO DEL MENSAJE"

End With
cdomsg.Send

Set cdomsg = Nothing
Err_txtEnviarPedido_Click: MsgBox Err.Description Resume Exit_txtEnviarPedido_Clickend sub

El caso es que al ejecutar el cdomsg.Send siempre me aparece el mensaje de error

"Error de transporte en la conexión al servidor."

Agradezco de antemano la ayuda