envoi de mail avec Gmail

Bonjour le forum,

j'ai récupéré ce code. A la ligne cdo_msg.send j'ai un message d'erreur : "Le transport a échoué dans sa connexion au serveur." Quelqu'un sait-il pourquoi ?
J'ai pris soin d'indiquer des adresses, user, mdp valides. Et la bibliothèque CDO WINDOWS FOR 2000 est bien cochée.

Sub EnvoiMail()
'Add the Project Reference Microsoft CDO WINDOWS FOR 2000
Dim cdo_msg As New CDO.Message

'configuration message
cdo_msg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
cdo_msg.Configuration.Fields(cdoSMTPConnectionTimeout) = 60
cdo_msg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
cdo_msg.Configuration.Fields(cdoSMTPServerPort) = 465
cdo_msg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
cdo_msg.Configuration.Fields(cdoSMTPUseSSL) = True
cdo_msg.Configuration.Fields(cdoSendUserName) = "toto@gmail.com"
cdo_msg.Configuration.Fields(cdoSendPassword) = "tagada.tsoin-tsoin"
cdo_msg.Configuration.Fields.Update

'remplissage et envoi message
cdo_msg.To = "mon.dest@bbox.fr"
cdo_msg.From = "toto@gmail.com"
cdo_msg.Subject = "Test "
cdo_msg.TextBody = "Coucou"
' cdo_msg.AddAttachment ("C:\Users\nnnnnn\Documents\classeur1.xls")

cdo_msg.Send

'libération objet message
Set cdo_msg = Nothing
End Sub