COM component - SendMessageToMultipleRecipients

SendMessageToMultipleRecipients ( To As String, Text As String, From As String ) As SendStatusCollection

Description:

Sends an SMS message to multiple recipients via the Internet Gateway.

Parameters:

To	Input	This is the destination phone number(s) NOTE: Separate multiple numbers by a comma
Text	Input	The content of the text message
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.SendMessageToMultipleRecipients _ ("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.SendMessageToMultipleRecipients _ ("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