PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → Envoi SMS depuis Windev
Envoi SMS depuis Windev
Iniciado por Philippe, 02,ago. 2018 10:30 - 6 respuestas
Miembro registrado
132 mensajes
Publicado el 02,agosto 2018 - 10:30
Bonjour,

est-ce que quelqu'un a utilisé en Suisse une méthode ou API disponible pour envoyer des sms depuis WinDev?

Merci de votre aide.

Bonne journée.

--
Cordialement

Philippe T.
Miembro registrado
1.640 mensajes
Publicado el 02,agosto 2018 - 11:50
Bonjour,

Pourquoi en suisse spécifiquement. Avec des API Web ça marche justement de partout.
J'utilise ce service : https://www.allmysms.com/ depuis quelques temps maintenant et j'en suis très satisfait.
L'intégration a été simple et rapide !

En gros tu envois les infos Destinataire, message + options divers via leur webservice, et ils se chargent d'envoi le SMS.
Miembro registrado
954 mensajes
Publicado el 02,agosto 2018 - 12:24
Coucou,

Voila un code qui fonctionne pour Windev mobile : smsenvoi :

// Server
API_HTTP = "http://www.smsenvoi.com/httpapi/sendsms/"
// Authentification
API_MAIL = ""
API_KEY = ""
//
API_GAMME = ""
API_SENDER = ""


Procedure PUBLIC GLOBAL Send(LOCAL _sPhone_Number est une chaîne ANSI, LOCAL _sMessage est une chaîne ANSI): boolean

_sPhone_Number = Replace(_sPhone_Number, ".", "")

_sURL est une chaîne ANSI = URLEncode( "email=" + ::API_MAIL + ...
"&apikey=" + ::API_KEY + ...
"&message[type]=sms&message[subtype]=" + ::API_GAMME + ...
"&message[senderlabel]=" + ::API_SENDER + ...
"&message[recipients]=" + Val(_sPhone_Number) + ...
"&message[content]=" + _sMessage ...
)
// Requête
SI PAS httpRequête(::API_HTTP, "", "", _sURL) ALORS
RENVOYER Faux
FIN

// Resultat
TitreSuivant("SMS")
_sResult est une chaîne ANSI = HTTPDonneRésultat()
_vVariant est un Variant
_vVariant = JSONVersVariant(_sResult)
SI _vVariant.success = 1 ALORS
ToastAffiche("SMS Envoyé au [%_sPhone_Number%].", toastCourt, cvHaut, chCentre)
SINON
Erreur("Erreur lors de l'envoie", _sResult)
FIN
// Error management
CAS ERREUR:
RENVOYER Faux
CAS EXCEPTION:
RENVOYER Faux
FIN:


--
In üs we trust - #92i
Mensaje modificado, 02,agosto 2018 - 12:27
Miembro registrado
132 mensajes
Publicado el 02,agosto 2018 - 13:44
Merci François pour l'adresse. Je suis en train de faire les tests. En utilisant le code proposé sur le site de AllMySMS, mon SMS est bien envoyé mais pas délivré. Je cherche pourquoi.

Et merci Charly. C'est éventuellement l'autre solution que j'adopterai. L'avantage, j'imagine, est qu'elle est gratuite. Mais comme c'est pour envoyer des rappels de rendez-vous, il n'y en a pas trop par jour.

Bonne journée.

--
Cordialement

Philippe T.
Publicado el 29,junio 2020 - 14:50
bonjour vraiment j'aimerais savoir si vous pouvez m'aider a apprendre comment envoyer des sms depuis windev 24
parce que j'ai contraster vous chercher déjà a le faire
je suis nouveau et je suis en cote d'ivoire
j'aimerais que vous m'Ecrivez sur whatsapp +22552324225
pour m'aider svp mercie
Miembro registrado
49 mensajes
Publicado el 29,junio 2020 - 17:38
Bonjour Philippe,

La solution proposée par Charly CANDO est très efficace.
Elle s'appuie sur le site www.smsenvoi.com et son API
Par contre, l'envoi de SMS n'est pas gratuit. Le tarif est basé sur l'achat de packs de SMS, dégressif en fonction du nombre de SMS acheté.

Bonne journée.
Publicado el 07,septiembre 2020 - 16:30
Bonjour Charly,

Comme il semble que tu utilises smsenvoi.com, pourrais-tu me dire comment faire pour envoyer du email2SMS ?


Merci