Microsoft 365 envoi mail avec une condition

[Mwadepaname]

Bonjour à tous,
je suis actuellement sur ma 1ère macro et je rajoute au fur et à mesure des petites options.
Cependant je bloque sur l'envoi de mail avec le créneau choisi qui se trouve en cellule v2.
Je souhaiterai que la personne qui remplit le formulaire et choisit de recevoir un A/R, reçoive un mail avec son créneau (en V2, cellule nommée "créneau") lorsqu'elle clique sur "envoyer".
J'ai testé plusieurs codes mais sans succès.

En PJ le fichier

Merci pour votre aide

 

[Mwadepaname]

avec ce code, en mettant display à la place de send.
Le mail s'affiche sur l’écran mais je dois valider manuellement.

Sub mail()

Dim mail As Variant

Set mail = CreateObject("outlook.application")

With mail.createItem(olMailItem)
.Subject = "mail test"
.to = Range("s1")
.Body = "Bonjour, " & Range("u2") & " ton créneau est le suivant :" & Range("v2")
.send
End With

End Sub

je ne comprends pas pourquoi send ne fonctionne pas

 

[Mwadepaname]

résolu c'était à cause du VPN