>>The error is "OLE lDispatch exception code 0 from Skype4COM.Skype.1: Connection refused..."
>>
>>Here is some code that I found and it doesn't work for me
>>
>>

>>** Create a Skype4COM object:
>>oSkype = CreateObject("Skype4COM.Skype", "Skype_")
>> 
>>** Start the Skype client:
>>If !oSkype.Client.IsRunning 
>>	oSkype.Client.Start()
>>ENDIF 
>> 
>>** Declare the following Skype constants:
>>cUserStatus_Offline = oSkype.Convert.TextToUserStatus("OFFLINE")
>>cUserStatus_Online = oSkype.Convert.TextToUserStatus("ONLINE")
>>cCallStatus_Ringing = oSkype.Convert.TextToCallStatus("RINGING")
>>cCallStatus_Inprogress = oSkype.Convert.TextToCallStatus("INPROGRESS")
>>cCallStatus_Failed = oSkype.Convert.TextToCallStatus("FAILED")
>>cCallStatus_Refused = oSkype.Convert.TextToCallStatus("REFUSED")
>>cCallStatus_Cancelled = oSkype.Convert.TextToCallStatus("CANCELLED")
>>cCallStatus_Finished = oSkype.Convert.TextToCallStatus("FINISHED")
>>cCallStatus_Busy = oSkype.Convert.TextToCallStatus("BUSY")
>>cAttachmentStatus_Available = oSkype.Convert.TextToAttachmentStatus("AVAILABLE")
>>	 
>>** The PlaceCall command will fail if the user is offline. To avoid failure, check user status and change to online if necessary:
>>*!*	If cUserStatus_Offline = oSkype.CurrentUserStatus 
>>*!*		oSkype.ChangeUserStatus(cUserStatus_Online)
>>*!*	ENDIF 
>>
>>** Create a user object:
>>oUser = oSkype.User("Chasse Denis")
>>
>>
>>*!*	MESSAGEBOX( "User " + oUser.Handle + " online status is " + oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus))
>>*!*	WScript.Echo "User " & oUser.Handle & " online status is " & oSkype.Convert.OnlineStatusToText(oUser.OnlineStatus)
>>
>>SET STEP ON 
>>
>>** Place a call:
>>

>>
>>Up to this point everything is ok. It's what follows that is not right.
>>
>>I tried the next three ways to place a call. They all give errors.
>>
>>

>>oCall = oSkype.PlaceCall(oUser)
>>oCall = oSkype.PlaceCall(oUser.Handle)
>>oSkype.PlaceCall(oUser.Handle)
>>

>>
>>If even if one of the previous worked it wouldn't really do what I want.
>>
>>From my VFP app. I want to be able to call a phone number (SkypeOut)
>>
>>Anybody knows how to fix this?
>
>I have started to reply in the private area but you never came back,
>
>The correct syntax to place a call is you call the handle.
>
>

oskype.PlaceCall(ouser.Handle)

>
>This one bring up the interface and starts dialing. Two things:
>1. You may want to add this line to your code, after you created the oSkype object:
>

oSkype.Attach()

>2. Skype has to already be running, minimized in the tray for this to work.


Here's the last version that I have

DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
 
oskype = CREATEOBJECT("Skype4COM.Skype", "Skype")
oskype.timeout = 5000
sleep(1000)
setskypesilent()

&& I tried many variations here but non came through
&& I tried "+15146441809"
&& I tried "+5146441809"

oSkype.PlaceCall("5146441809")

PROCEDURE setSkypeSilent
LOCAL lcerror
TRY
    IF EMPTY(oskype.silentmode)
     oskype.silentmode = .T.
     DOEVENTS
    ENDIF
CATCH TO lcerror
FINALLY
ENDTRY
ENDPROC

Still the same error comes out. Connection refused