Expédition de SMS en VFP (utilisation du composant IZS-SMS)
# 0000000215
ajouté le 27/06/2005 17:46:28 et modifié le 27/06/2005
consulté 13904 fois
Niveau
débutant
Modem RTC disposant du mode V23 (minitel) connecté au PC disposant de votre application VFP
Ligne téléphonique analogique
Comment ça marche
Il s’agit d’instancier un objet sur la classe IZSsms, ce composant utilise le modem connecté au PC pour contacter un centre d’appels sur un numéro surtaxé, le centre d’appels délivre le SMS.
Nous utilisons cette solution depuis plusieurs années (04/2002) pour déclancher des alertes en SMS.
C’est impeccable, rapide et fiable.
Nous avions testé auparavant différentes solutions, y compris les gratuites du style email to sms ;
Mais aucune des solutions testées ne permettaient le déclenchement immédiat du SMS et aussi fiable que la solution avec IZS-SMS.
Cordialement
Francis FAURE
PS : je n’ai pas d’action dans cette société….
Code source :
o=createobject("izssmsx.izssmsx")
o.Port = "COM2"&& Port Comm. sur lequel est branché le modem
o.InitString = "&F"&& chaîne d’initialisation pour basculer le modem en v23 selon modem
o.PrefixString = ""&& numéro à composer pour prendre une ligne extérieure si pabx
o.SendTo = "0601010101"&& numéro de tél du GSM a expédier le SMS
o.Text = "Message SMS à expédier sur le mobile"
=o.Send()
v_state = alltrim(str(o.State)) if v_state=="2"
? " > Retour OK ("+v_state+")" else
? " > Retour Erreur ("+v_state+")" endif
o=NULL