(Excel) Send SMS Messages via Route Mobile's SMSPlus REST API

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

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim req As Chilkat.HttpRequest
Set req = Chilkat.NewHttpRequest

req.Path = "/bulksms/bulksms"
req.AddParam "username","YOUR_USERNAME"
req.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)
req.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.
req.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 senders address 

'  when the message is displayed on their cell phone, please prefix the plus sign
'  to your senders address while submitting the message 

req.AddParam "source","+14155558999"

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

Dim http As Chilkat.Http
Set http = Chilkat.NewHttp

Set resp = http.PostUrlEncoded("http://api.rmlconnect.net/bulksms/bulksms",req)
If (http.LastMethodSuccess <> True) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

'  Examine the response status code and the response body:
Debug.Print "response status code = "; resp.StatusCode
Debug.Print "response body:"
Debug.Print resp.BodyStr