VBA - API Free SMS requête HTTP Post
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:
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