ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment envoyer un message SMS avec Foxpro

	Description
Retour à la liste L'auteur Mike Gagnon Canada Membre Simple # 0000000025 enregistré le 14/10/2004 Gagnon Mike Pointe Cla H9R 3K8 de la société Carver Technologies Inc. Fiche personnelle Note des membres pas de note	Contributions > 08 - ActiveX - (OLE) Comment envoyer un message SMS avec Foxpro # 0000000458 ajouté le 18/07/2007 18:51:17 et modifié le 18/07/2007 consulté 11428 fois Niveau initié Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0
	Il faut un modem pour utiliser cette technique. Ajouter l'activex mscomm32 à une forme. Renommer le comm1
	Code source :
	thisform.Comm1.CommPort = "Le port qui communique au modem" thisform.Comm1.Handshaking = 0 thisform.Comm1.RThreshold = 0 thisform.Comm1.RTSEnable = .f. thisform.Comm1.Settings = "2400,n,8,1" thisform.Comm1.SThreshold = 0 thisform.Comm1.InputMode = 0 thisform.Comm1.PortOpen = .t. && Dans un bouton sur la form, dans le click event. thisform.comm1.output="ATE1"+chr(13) thisform.comm1.inbuffercount=0 wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output='AT+CMGF=1'+chr(13) wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output='AT+CMGS="'+[numéro de téléphone]+'"'+chr(13) wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output=[message à envoyer]+chr(26) wait 'Envoi . . .' window TIMEOUT 5 wait 'Message parti!' window
	Commentaires
	le 19/07/2007, Jean à Grenoble a écrit : Mais ! Ce sont des commandes HAYES !! On doit pouvoir faire la même chose en ... DOS !!!!!! Jean à Grenoble le 19/07/2007, Mike Gagnon a écrit : DOS? J'ai perdu ma copie de DOS, mais probablement possible. le 19/07/2007, Francis Faure a écrit : Mike, merci pour cette contrib! je passais par un activX jusqu'a maintenant appelant un numéro surtaxé, mais la c'est vraiement trop simple !: bravo : cela va m'être utile Cordialement le 29/08/2007, yoyo31 a écrit : Salut, Ca ne marche pas avec mon modem. Faut-il un modem GSM/GPRS ? Lionel le 26/11/2019, kikoun a écrit : Salut J'ai essayé de mon côté mais ca ne marche pas non plus. Le message part mais pas de reception. Voici ce que j'ai fait. Dans Init du formulaier j'ai ecrit : <VFP> thisform.Comm1.CommPort = 3 &&"Le port qui communique au modem" thisform.Comm1.Handshaking = 0 thisform.Comm1.RThreshold = 0 thisform.Comm1.RTSEnable = .f. thisform.Comm1.Settings = "9600,n,8,1" thisform.Comm1.SThreshold = 0 thisform.Comm1.InputMode = 0 thisform.comm1.portOpen = .T. </VFP> Dans l'evenement Click du bouton : <VFP> thisform.comm1.output="ATE1"+chr(13) thisform.comm1.inbuffercount=0 wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output='AT+CMGF=1'+chr(13) wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output='AT+CMGS="'+'0022502502258'+'"'+chr(13) wait 'Sending . . .' window TIMEOUT 0.2 thisform.comm1.output=[message à envoyer]+chr(26) wait 'Envoi . . .' window TIMEOUT 5 wait 'Message parti!' window </VFP> J'ai pris le soin de vérifier que l'équipement de mon GSM Modem ait la port COM3

Comment envoyer un message SMS avec Foxpro

Contributions > 08 - ActiveX - (OLE)