Envoi mail avec gmail depuis formulaire VBA

Private Sub CmdEnvoyerFormulaire_Click()
Dim statut As Boolean
Dim destinataires As String
Dim sujet As String
Dim corps As String
Dim pj As String
Dim expediteur As String

reponse = MsgBox("Le mail sera directement envoyé. Etes-vous sûr de vouloir continuer ?", vbOKCancel + vbExclamation, "Avertissement")
If reponse = vbOK Then
Else
Exit Sub
End If

destinataires = "exempleD@gmail.com"
expediteur = "Dupont"
adresseexpediteur = "exempleE@gmail.com"
sujet = "hello world"
corps = "hello guil how re ya"

On Error GoTo SMTPSendMail_Err

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = sujet
objMessage.From = expediteur
objMessage.To = destinataires
objMessage.TextBody = corps

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = InputBox("Veuillez saisir votre identifiant")

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = InputBox("Veuillez saisir votre mot de passe gmail")

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

succes = MsgBox(" envoyés avec succès !", vbInformation)

Exit Sub

SMTPSendMail_Err:
    'Gestion des erreurs
    tmp = MsgBox("Erreur lors de l'envoi de votre message." & Chr(10) & "Détails : " & Err.Description, vbCritical)

End Sub