Bonjour, quelqu'un d'entre vous a-t-il essayé (et réussi) d'utiliser l'API d'envoi de SMS de Free via une requête HTTP VBA en méthode POST ?

Voici le code que j'ai essayé mais ça ne donne rien chez moi.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Public Sub SMSFreePost()
Dim XMLHTTP As New MSXML2.XMLHTTP60, myurl As String
myurl = "https://smsapi.free-mobile.fr/sendmsg"
XMLHTTP.Open "POST", myurl, False
XMLHTTP.setRequestHeader "Content-Type", "application/json"
XMLHTTP.Send "?user=1234567890&pass=Motdepasse&msg=Test"
MsgBox (XMLHTTP.responseText)
 
End Sub
Merci pour votre aide