 Download ActiveXperts SMS and MMS Toolkit 5.0 (6754 KB - .exe file)
Download Manual (623 KB - .htm file)
Send a voicemail indication, fax indication or e-mail indication via SMS
ActiveXperts SMS and MMS Toolkit allows you to send ringtones via SMS to your remote mobile users.
This way, indications can easily be integrated into your own application.
Yopu can only send RTTTL ringtones. RTTTL (RingTone Text Transfer Language) is the primary format used to distribute
ringtones for Nokia phones. An RTTTL file is a text file, containing the
ringtone name, a control section and a section containing a comma separated
sequence of ring tone commands. White space must be ignored by any reader
application.
You can find RTTTL ringtones on the internet. Some of them are free; others you have to pay for.
The following VBScript demonstrates how to send a voicemail indication. There's one sample to show the use of ringtones with a GSM device;
the other sample shows how to use it with SMPP.
Send a voicemail indication (via GSM Modem / GSM phone)
Set objGsmOut = CreateObject ( "ActiveXperts.GsmOut" )
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )
objGsmOut.Device = "MultiTech GSM MultiModem"
objGsmOut.MessageRecipient = "+31624896641" ' Recipient's mobile number
sRingData = "06 05 04 15 81 15 81 02 4A 3A 51 D1 95 CD " & _ '
"D0 08 00 1B 20 55 05 90 61 05 60 55 85 50 " & _
"54 85 40 82 08 49 90 00" ' The actual ringtone (binary format)
RingData = Split ( sRingdata, " " ) ' Split bytes string into separate bytes
For i = 0 To UBound ( ringData ) ' Create message data
objGsmOut.MessageData = objGsmOut.MessageData & Chr ( "&H" & RingData ( i ) )
Next
objGsmOut.MessageType = objConstants.asMESSAGETYPE_DATA_UDH ' Set messagetype to User Data Header
objGsmOut.Send ' Send the ringtone message now
WScript.Echo "Result: " & objGsmOut.LastError
Send a voicemail indication (via SMPP over IP)
Set objSmpp = CreateObject ( "ActiveXperts.Smpp" )
Set objWapPush = CreateObject ( "ActiveXperts.WapPush" )
objSmpp.Server = "smpp.activexperts-labs.com" ' SMPP server (hostname or IP address)
objSmpp.ServerPort = 2775 ' TCP/IP port of the SMPP server
objSmpp.SystemID = "AX005" ' SMPP server login
objSmpp.SystemPassword = "812056" ' SMPP server password
objSmpp.Connect
If objSmpp.IsConnected = True Then
objSmpp.MessageRecipient = "+31647134225" ' Recipient's mobile number
objSmpp.MessageData = "Hello World via SMPP" ' SMS message text
objWapPush.URL = "http://wap.yahoo.com" ' Push wap.yahoo.com
objWapPush.Description = "Go visit yahoo.com !" ' Friendly push text
nParts = objWapPush.Encode ' Encode the WAP data
For i = 0 To nParts - 1
objSmpp.MessageData = objWapPush.GetMessagePart ( i )
objSmpp.Send ' Send WAP data
WScript.Echo "Send part #" & i & ",result: " & objSmpp.LastError
Next
objSmpp.Disconnect ' Disconnect
End If
|
