re-bonjour gaykoina,
avant d’essayer une autre solution essaye en supprimant les lignes de code suivantes
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monadresse@gmail.com" '===>> à adapter
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" '===>> à adapter