Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sending a phone call for a voice mail
Message
From
14/07/2001 07:30:00
 
 
To
13/07/2001 14:27:11
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00530268
Message ID:
00530634
Views:
35
>
>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='AT#CLS=8'+CHR(13)
>WAIT WINDOW 'Initialization string 1' TIMEOUT 1
>oPhone.Phone.Output='AT#VRN=0'+CHR(13)
>WAIT WINDOW 'Initialization string 2' TIMEOUT 1
>oPhone.Phone.Output='AT#VLS=6'+CHR(13)
>WAIT WINDOW 'Initialization string 3' TIMEOUT 1
>
>oPhone.Phone.Output='ATDT123-4567;'+CHR(13)
>FOR lnCompteur=1 TO 37
>   WAIT WINDOW 'Dialing '+ALLTRIM(STR(lnCompteur)) TIMEOUT 1
>NEXT

 * COMMENT OUT THIS LINE oPhone.Phone.Output='ATH'+CHR(13)

>WAIT WINDOW 'Closing the connection' TIMEOUT 1
>oPhone.Phone.PortOpen=.F.
>
>
>That works. Just by hanging up the voice mail gets recorded.
>
>Does that mean, I should be able to send some digits to be recorded?

The above was what I really meant, but I have my answer IAC. THE AT#V stuff is not doing anything for us at this point I don't think. It might even be invalid for your modem. If you do so error checking by looking at the modem responses from each of your above commands, you also might be able to dump all the WAiT WINDOW stuff also.
Previous
Reply
Map
View

Click here to load this message in the networking platform