COM component

SendBinaryMessage

Sends a Binary SMS message via the Internet Gateway. Binary Messages can be used to send SmartMessages, such as Ringtones and Logos. 

SendBinaryMessage ( To As String, UserDataHeaderHex As String, UserDataHex As String, From As String ) As SendStatusCollection

Parameters:

To Input

This is the destination phone number(s)
NOTE: Separate multiple numbers by a comma
UserDataHeaderHex Input (Optional) User Data Header
UserDataHex Input User Data (140 octets max)
From Input This is the source/sender's phone number
SendStatusCollection Return

Collection containing the send status for each recipient. See SendStatusCollection

ASP Example:

<%
Set IntelliSMS = Server.CreateObject("IntelliSoftware.IntelliSMS")

IntelliSMS.AccessKey = "Yva$ER%Uhs+UU[MzwEYe"
IntelliSMS.SecretKey = "F{kQ^s`wVpm!EU~Bx8yB^A$N$[l{pxJA"

Set SendStatusColl = IntelliSMS.SendBinaryMessage ( _
    "44771012345,44771023456", "06050415820000", _
    "32F40100480E0100000000000000000000000000000000000000" & _
    "0000000000000000000001247803000000E0080120CC06400000" & _
    "40080120CC06C00000479E7124F0EFFADCF64448892479B6DAC6" & _
    "CD4448F9241DB6DACECF44488124CDB6CD96CC44488924CDB6CD" & _
    "96CDE446712478E66D9EC6000000000000000000000000000000" & _
    "000000", "SENDER_ID" )

If SendStatusColl.OverallResult <> 1 Then
    Summary = "Failed, Result=" & SendStatusColl.OverallResult
Else
    For Each Status In SendStatusColl
         Summary = Summary & "To=" & Status.To & _
             ", MessageId=" & Status.MessageId & _
             ", Result=" & Status.ResultCode & "<BR>"
    Next
End If

Response.Write Summary
%>

VB Example:

Dim IntelliSMS As New INTELLISMSLib.IntelliSMS

IntelliSMS.AccessKey = "MyUsername"
IntelliSMS.SecretKey = "MyPassword"

Dim SendStatusColl As INTELLISMSLib.SendStatusCollection

Set SendStatusColl = IntelliSMS.SendBinaryMessage ( _
    "44771012345,44771023456", "06050415820000", _
    "32F40100480E0100000000000000000000000000000000000000" & _
    "0000000000000000000001247803000000E0080120CC06400000" & _
    "40080120CC06C00000479E7124F0EFFADCF64448892479B6DAC6" & _
    "CD4448F9241DB6DACECF44488124CDB6CD96CC44488924CDB6CD" & _
    "96CDE446712478E66D9EC6000000000000000000000000000000" & _
    "000000", "SENDER_ID" )

Dim Summary As String

If SendStatusColl.OverallResult <> ResultCodes.rcOK Then
    Summary = "Failed, Result=" & SendStatusColl.OverallResult
Else
    Dim Status As INTELLISMSLib.SendStatus
    For Each Status In SendStatusColl
        Summary = Summary & "To=" & Status.To & _
            ", MessageId=" & Status.MessageId & _
            ", Status=" & Status.ResultCode & vbCrLf
    Next
End If

MsgBox Summary

The above examples send an 'IntelliSoftware' operator logo to a handset.

<< Back to COM Component