COM component - SendUnicodeMessage

SendUnicodeMessage ( To As String, Message As String, From As String ) As SendStatusCollection

SendUnicodeMessageHex ( To As String, MessageHex As String, From As String ) As SendStatusCollection

Description:

Sends a Unicode SMS message to multiple recipients via the Internet Gateway. The Unicode format is used to send multilingual messages not support by the standard GSM character set.

See Unicode Character Codes for more details.

Parameters:

To	Input	This is the destination phone number(s) NOTE: Separate multiple numbers by a comma
Message	Input	The content of the text message (70 Unicode characters max.)
MessageHex	Input	Unicode text encoded in hexadecimal (140 octets max, 70 unicode characters)
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.SendUnicodeMessage _ ("44771012345,44771023456", "Hello", "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.SendUnicodeMessage _ ("44771012345,44771023456", "Hello", "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

<< Back to COM Component