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.
Merci pour votre aide
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
Partager