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