COM component - SendStatusCollection

Collection containing the send status for each recipient.

Methods:

Item(Index) As SendStatus

Returns an individual SendStatus object from the collection

Properties:

OverallResult	Indicates the overall success/failure. See ResultCodes
Count	Number of SendStatus objects in the collection

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