>>GREAT! Just for my info, comment out your AT3+CHR(13) output and tell me what happens. Or just give me your voicemail number. :>)
>
>You mean like this:
>
>

>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
>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?

Yes. Until your modem sees and negotiates with another modem, it appears to be staying in command mode so you should be able send digits until the modem reaches it's dialing timeout. Having fun yet?