Skype - Send SMS with Delivery Report

Skype is a software application that allows registered users to communicate with each other through video calls and instant messaging. The "Send SMS" feature in Skype presents a faster and a simpler approach towards sending messages, thereby cutting down the telephone bills to a substantial extent. This sample will assist you to automate the process of sending SMS via Skype. The automated application on implementation sends the message to the telephone number entered in the system and displays the delivery status.

Download the evaluation version of Xtend IVR and install the telephony application in your system. Run the sample script from the Script Editor. Click here to refer the code.

After creating the script, you can run the script and it works as below:

• Initially, the user has to provide the telephone number
• If the telephone number is valid, IVR sends the message
• IVR waits till the message has been sent successfully and displays the delivery status

*******************************************************************************************
* Script : sms.dt
* Notes  : Demonstrates a sendsms with delivery report on Skype
*         Please insert a valid phone no before running this program
*******************************************************************************************

* Uncomment the next line to write raw skype command & reponses to the user log file
* $Skype.debug = true

* Uncomment the next line and insert a valid phone no to send an sms
* $PhoneNo = "00919846036247"

MAIN:
	if $PhoneNo == ""
		Skype.IsSendSmsBusy()
		SleepEvent 1000
		goto MAIN
	endif
	
	Display "Sending SMS..."
	
	Skype.SendSms($PhoneNo, "This is a test", true)
	
	* Wait till the sms has been send
	while Skype.IsSendSmsBusy()
		SleepEvent 
	endwhile
	
	Display Skype.GetSmsDeliveryStatus()
	
* Wait indefinitely. we don't want to waste SMSes do we :-)
ENDMAIN:
	Skype.IsSendSmsBusy()
	SleepEvent 1000
	goto ENDMAIN
	
	
* User has hung up
ONHANGUP:
	hangup
	goto MAIN

* An error has occurred
ONSYSTEMERROR:
	log $error
	display $error
	if $debug 
		msgbox($error)
	endif
	hangup
	goto MAIN

*End of Script