Ok i'm back from the client and tried out the code that you refered to, so this is what i did

DEFINE CLASS oMakeCall AS oExternal OF defclass.prg

PROCEDURE execute()
PARAMETERS auPar1,auPar2,auPar3

LOCAL loForm

loForm=CREATEOBJECT("form")
loForm.Visible=.f.

loForm.Newobject("poTel","loWinsock")
loForm.poTel.RemoteHost = "Localhost"
loForm.poTel.RemotePort = 1979
loForm.poTel.Protocol = 1
IF LEFT(ALLTRIM(auPar1),1)=="+"
loForm.poTel.Senddata("000"+ALLTRIM(oApp.Remtxt(auPar1)))
ELSE
loForm.poTel.Senddata("0"+ALLTRIM(oApp.Remtxt(auPar1)))
ENDIF

loForm=NULL
RELEASE loForm
ENDPROC
enddefine

DEFINE CLASS loWinSock as OleControl
OleClass="MsWinsock.Winsock.1"
ENDDEFINE

and guess what, on the line with the Newobject, my old friend OLE 0x80040112 is back !!!!

Any suggestions ?

Guillaume