Hi all,
I'm having problems to send sms via Skype using xHarbour+FWH,
is there someone that can share a running sample code that show the way to send an SMS through Skype ?
Thanks in advance
function dial_skype(t_phone)
local objskype
if empty(t_phone)
return .t.
endif
objSkype = CreateObject("SKYPEAPI.Access", "objSkype_")
objSkype:Connect()
do while objSkype:APIAttachmentStatus <> 0
enddo
inkey(.5)
oCall = objskype:PlaceCall(t_phone)
objskype = Nil
return .t.
but I never try it because I not found dll on skype site
Thanks for your sample,
anyway I am looking for an SMS sample, not a Skype call sample.
I have Skype already installad so I think no external dll is required.
scusa ho capito ma credo che se avessimo la dll forse potremmo sapere qualche funzione all'interno..per inviare sms.. oopps ho parlato italiano
function smsskype(t_sms,t_mess)
// send an SMS (if enough credit on skype account)
// return 1 : SMS delivered, 0 : SMS failed
// Skype Version 3 installation required on local machine (2.5 ?) or Skype4com DLL
// t_sms : mobile number format +(country code)(mobilenumber) e.g. '+32691348192' no spaces or other caracters allowed
Local oSkype,oSMS,nRet := 1,i := 0,lRunning := TRUE
Try
oSkype := CreateObject("SKYPE4COM.Skype", "Skype_")
Catch
MsgInfo("No Skype4Com installed")
nRet := 0
End
If empty(t_sms)
nRet := 0 // empty phone number
endif
If ! oSkype:Client:IsRunning()
oSkype:Client:Start()
lRunning := FALSE
else
Endif
if lRunning
//if MsgYesNo('Send Message')
Try
oSMS := oSkype:SendSms(t_sms, t_mess) // generic
Catch
MsgInfo('fail')
nRet := 0
End
//? oSms:Id() // actual ID of SMS
For i := 1 to 30 // try for max. 30 seconds for sending 1 SMS and waiting for answer from operator
// MsgWait(,oSkype:SmsMessageStatusToText(oSms:Status),2)
If oSms:Status()=2 // delivered
Exit
Endif
inkey(1)
next
//endif
If oSms:Status()<>2 // not delivered
MsgAlert('SMS probably failed !')
nRet := 0 // erreur SMS
Else
//MsgAlert("Message delivered successfully !",,,3)
Endif
endif
// => List all SMS
// For Each oSms In oSkype:Smss()
// ? oSms:Id() //Sms Id
// ? oSms:Timestamp() // time (date)
// ? oSms:Type() // type
// ? oSkype:SmsMessageTypeToText(oSms:Type) // p. ex. originated
// ? oSms:Status() //status
// ? oSkype:SmsMessageStatusToText(oSms:Status) // p.ex. delivered
// ? oSms:FailureReason() //failure reason
// ? oSms:IsFailedUnseen() //failed unseen
// ? oSms:Price() //price
// ? oSms:PricePrecision() //price precision
// ? oSms:PriceCurrency() //price currency
// ? oSms:ReplyToNumber() //reply to number
//Next
//inkey(0)
oSkype := Nil
return(nRet)Hi,
nothing to do.
It runs well on Skype 4 but with Skype 5 is not possibile to send SMS.
Is there anyone that succesfull sent SMS with Skype 5 ?