Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sending a phone call for a voice mail
Message
De
13/07/2001 13:00:33
 
 
À
13/07/2001 12:53:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00530268
Message ID:
00530375
Vues:
23
>>No, I don't need to send voice. Well, if sending a string is considered sending a voice, then I won't be able to do it. Basically, I just need to send something so it'll activate the voice mail. The cell phone doesn't work as the home phone. The voice mail on it needs to receive a sound. At home, as soon as you reach the voice mail, it'll be recorded even if you hang up.
>
>Now there may be some hope. As Len said, you need specific data for your modem. Once you drop back into command mode, you might be able to tell it to send a string of DTMF digits to activate your voice mail. Got a manual for the modem?

Ok, it works.

Here's what I do:
oPhone=CREATEOBJECT('Form')
oPhone.AddObject('Phone','Olecontrol','MSCOMMLib.MSComm')
oPhone.Phone.Settings='9600,N,8,1'
WAIT WINDOW 'Setting up modem' TIMEOUT 1
oPhone.Phone.CommPort=1
WAIT WINDOW 'Setting up comm port' TIMEOUT 1
oPhone.Phone.PortOpen=.T.
WAIT WINDOW 'Opening port' TIMEOUT 1
oPhone.Phone.Output='ATDT123-4567;'+CHR(13)
FOR lnCompteur=1 TO 35
   WAIT WINDOW 'Dialing '+ALLTRIM(STR(lnCompteur)) TIMEOUT 1
NEXT
oPhone.Phone.Output='ATH'+CHR(13)
WAIT WINDOW 'Closing the connection' TIMEOUT 1
oPhone.Phone.PortOpen=.F.
This records a voice mail. What was needed is to close the call as soon as the voice mail kicks in.

Now, I have a recorded voice mail. It works all the time. All I need which would be cool is just to send something that will be recorded as sound on the voice mail. That would be useful to differentiate it from any other empty calls we may receive.
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform