envoyer des mails avec VBA pour Access en utilisant Gmail

Bonsoir,

J'ai réussi à mettre Outlook hors service (je n'arrive pas à le récupérer) et je veux envoyer des mails avec VBA pour Access en utilisant Gmail.

J'ai récupéré ce code et j'ai un message d'erreur m'indiquant "Le message n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur était 0x80040217"


Dim iMsg, iConf As Object
Dim strbody As String
Dim Flds As Variant

' configuration du message
Set iMsg = CreateObject("CDO.Message")

' configuration de l'envoi
Set iConf = CreateObject("CDO.Configuration")

' CDO source defaults
iConf.Load -1
Set Flds = iConf.Fields

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "465"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With

strbody = "hi there" & vbNewLine & _
"This is line 1"

With iMsg
Set .Configuration = iConf
.To = "xxxxx@cegetel.net"
.CC = ""
.BCC = ""
.From = """xxxxx@gmail.com"" <xxxxx@gmail.com>"
.Subject = "Important Message"
.TextBody = strbody
.Send
End With

' reinitialisation des variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub

Quelqu'un aurait-il l'amabilité de me dire ce qu'il manque ou qui est faux.
Par avance merci.

Bonsoir,désolé c'est pas une réponse mais une autre question..J'ai un projet en VBA à réaliser.J'ai besoin de quelqu'un qui s'y connais pour un travail sérieux qui sera bien-sûr rémunéré.Merci de me répondre

Désolé,ce n'est pas réponse mais une autre question...J'ai un projet en VBA que je dois rendre.J'ai besoin d'un programmeur sérieux qui puisse me faire le travail qui sera rémunéré.Me contacter si intéressé..Merci de me répondre...