Lianja

Send SMS Messages via Route Mobile's SMSPlus REST API

See more HTTP Misc Examples

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API. Lianja

llSuccess = .F.

// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loReq = createobject("CkHttpRequest")

loReq.Path = "/bulksms/bulksms"
loReq.AddParam("username","YOUR_USERNAME")
loReq.AddParam("password","YOUR_PASSWORD")

// Indicate the type of message. 
// Values for type include: 
// 0: Plain text (GSM 3.38 Character encoding) 
// 1: Flash (GSM 3.38 Character encoding)  
// 2: Unicode 
// 3: Reserved  
// 4: WAP Push 
// 5: Plain text (ISO-8859-1 Character encoding)  
// 6: Unicode Flash 
// 7: Flash (ISO-8859-1 Character encoding) 
loReq.AddParam("type","0")

// destination is the Mobile number to which the message is to be sent 
// (may or may not include a plus [+] sign). 
// Multiple mobile numbers can be separated by commas (,)
// No need to URL encode strings passed to AddParam. 
// Chilkat will automatically URL encode when the request is sent.
loReq.AddParam("destination","+14155551234")

// Specify the source address that should appear in the message.
// Max Length of 18 if numeric.
// Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
// when the message is displayed on their cell phone, please prefix the plus sign 
// to your sender�s address while submitting the message 
loReq.AddParam("source","+14155558999")

// Add the message itself.  (No URL encoding needed.)
loReq.AddParam("message","Test Message")

loHttp = createobject("CkHttp")
loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpReq("http://api.rmlconnect.net/bulksms/bulksms",loReq,loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loReq
    release loHttp
    release loResp
    return
endif

// Examine the response status code and the response body:
? "response status code = " + str(loResp.StatusCode)
? "response body:"
? loResp.BodyStr


release loReq
release loHttp
release loResp