Discussion :

[mathieulai]

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

[patricktoulon]

re
bonbsoir
je ne connaissais pas cet api mais
il y a certainement méprise quand a l'utilisation(tu parle d'envoi de sms et tu demande le responsetext???????)
ensuite pour une requête pour ce genre d'action je parierais ma chemise gauche que le header de requête et une condition obligatoire

[mathieulai]

Merci Patrick,

XMLHTTP.setRequestHeader ce n'est pas le header de requête ?
Quant au responsetext, c'est juste pour savoir ce qu'il va renvoyer.

Pour info voici les consignes sur le site Free :
Fonctionnement des notifications SMS
L’envoi du SMS se fait en appelant le lien suivant : https://smsapi.free-mobile.fr/sendmsg
avec les paramètres suivants :
- user : votre login
- pass : votre clé d’identification générée automatiquement par notre service
- ms : le contenu du SMS encodé sous forme d’url (Percent-encoding)

Exemple : Envoyer le message « Hello World ! » sur votre mobile :
https://smsapi.free-mobile.fr/sendms...llo%20World%20!

Vous pouvez également, si vous le préférez, envoyer les paramètres en POST. Dans ce cas, le contenu du message n’a pas besoin d’être encodé.
Le code de retour HTTP indique le succès ou non de l’opération :
- 200 : Le SMS a été envoyé sur votre mobile.
- 400 : Un des paramètres obligatoires est manquant.
- 402 : Trop de SMS ont été envoyés en trop peu de temps.
- 403 : Le service n’est pas activé sur l’espace abonné, ou login / clé incorrect.
- 500 : Erreur côté serveur. Veuillez réessayez ultérieurement.

[patricktoulon]

puisque tu a le lien pour quoi ne pas recopier la requete f12 mon ami