COM component

SendUnicodeMessage

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. 

SendUnicodeMessage ( To As String, Message As String, From As String ) As SendStatusCollection
SendUnicodeMessageHex ( To As String, MessageHex As String, From As String ) As SendStatusCollection
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.AccessKey = "Yva$ER%Uhs+UU[MzwEYe"
IntelliSMS.SecretKey = "F{kQ^s`wVpm!EU~Bx8yB^A$N$[l{pxJA"

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.AccessKey = "Yva$ER%Uhs+UU[MzwEYe"
IntelliSMS.SecretKey = "F{kQ^s`wVpm!EU~Bx8yB^A$N$[l{pxJA"

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