Private Sub Command1_Click()
Dim authKey, URL, mobiles, senderId, smsContentType, message, groupId, signature, routeId As String
   Dim V_signature, V_groupId, scheduleddate, V_scheduleddate As String
   Dim objXML As Object
   Dim getDataString As String
   
   authKey = "Sample Auth key" 'eg -- 16 digits alphanumeric
   URL = "Sample"  'eg-- www.abc.com
   mobiles = "Sample" '99999999xx,99999998xx
   smsContentType = "english" 'eg - english or unicode  
   message = "Hello this is test"
   senderId = "Sample" 'eg -- Testin'
   routeId = “Sample" 'eg 1'
scheduleddate = "" ‘optional if(scheduledate  eg “26/08/2015 17:00”)
signature ="" ‘optional if(signature available  eg “1”)
groupId ="" ‘optional if(groupId available eg “1”)
   If (Len(signature) > 0) Then
       V_signature = "&signature=" & signature
   End If
   If (Len(groupId) > 0) Then
       V_groupId = "&groupId=" & groupId
   End If
   If (Len(scheduleddate) > 0) Then
       V_scheduleddate = "&scheduleddate=" & scheduleddate
   End If
   URL = "Sample"
   'use for API Reference
   Set objXML = CreateObject("Microsoft.XMLHTTP")
   'creating data for url
   getDataString = URL + "AUTH_KEY=" + authKey + "&smsContent=" + message + "&mobileNos=" + mobiles + "&senderId=" + senderId + "&routeId=" + routeId + "&smsContentType=" + smsContentType + V_scheduleddate + V_groupId + V_signature
   objXML.Open "GET", getDataString, False
   objXML.Send
    If Len(objXML.ResponseText) > 0 Then
           MsgBox objXML.ResponseText
    End If
End Sub
Function URLEncode(ByVal Text As String) As String
   Dim i As Integer
   Dim acode As Integer
   Dim char As String
   
   URLEncode = Text
   
   For i = Len(URLEncode) To 1 Step -1
       acode = Asc(Mid$(URLEncode, i, 1))
       Select Case acode
           Case 48 To 57, 65 To 90, 97 To 122
               ' don't touch alphanumeric chars
           Case 32
               ' replace space with "+"
               Mid$(URLEncode, i, 1) = "+"
           Case Else
               ' replace punctuation chars with "%hex"
               URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$ _
                   (URLEncode, i + 1)
       End Select
   Next
   
End Function

Parameter Name

Data Type

Description

AUTH_KEY *

Alphanumeric

Login Authentication Key(This key is unique for every user)

message *

Text

Enter your message

Sender Id *

Text

Enter sender Id it should be less then 6 character

routeId *

Integer

Which route you want use for sending sms enter routeId for particular route.use given Id for route. Transactional Route=1, Promotional=2, Promotional Sender Id=3

mobileNos *

Integer

Mobile number can be entered with country code or without country code Multiple mobile no. should be separated by comma

groupId *

Integer

To send sms to particular group enter group name created in MsgClub phone book.