[XL-2007] Envoi mail depuis Excel par Gmail

Bonjour,

Malgré mes recherches sur tous les sites, je ne trouve pas de solution à mon problème.
Quand je veux envoyer un mail depuis Excel par Gmail, je reçois un message d'erreur
Le transport a échoué dans sa connexion au serveur
ci-joint mon code ou j'ai enlevé les adresses

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Function envoi_mail() ' pour envoi controle
 
  Set cdomsg = CreateObject("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") = 25 '465   '587
    .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") = 60
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "******"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********"
    .Update
  End With
  ' build email parts
  With cdomsg
    .To = "*****@gmail.com"
    .From = "****@gmail.com"
    .Subject = "essai de transmission"
    .TextBody = "BONJOUR"
    .Send
  End With
  Set cdomsg = Nothing
 End Function

si quelqu'un pouvait m'aider

Merci d'avance

Chris