COM component - SendBinaryMessage

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

Description:

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

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.Username = "MyUsername" IntelliSMS.Password = "MyPassword" 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.Username = "MyUsername" IntelliSMS.Password = "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