IsEmpty Property

Description:

The IsEmpty property returns a Boolean value to indicate if theInbox collection object is empty, after the last Refresh or Delete method was called..

Usage	blnResult = ObjectName.Inbox.IsEmpty
Value Type	Boolean
Access Mode	Read Only
Valid Values	True - The Inbox collection has no message items False - The Inbox collection has at least one message item in it
Remarks	The HasMessages property gives the inverse of IsEmpty.

Usage Example:

Visual Basic / ASP (VBScript)

Dim objSMS As mCore.SMS
Set objSMS = New mCore.SMS
' You can also use Set objSMS = CreateObject("mCore.SMS")
' In case of ASP (VBScript) to create object use
' Set objSMS = Server.CreateObject("mCore.SMS")
' In ASP use Response.Write instead of MsgBox
objSMS.Port = "COM3"
objSMS.BaudRate = 19200
objSMS.Parity = "N"
objSMS.DataBits = 8
objSMS.StopBits = "1"
' It is not necessary to execute the 'Connect' method.
' Connection state is detected internally by mCore and
' the 'Connect' method is executed accordingly.
objSMS.PIN = "1234"
objSMS.MessageMemory = "ME"
objSMS.Inbox.Concatenate = True
If objSMS.Inbox.Refresh Then
     If Not objSMS.Inbox.IsEmpty Then
          MsgBox "Total " & objSMS.Inbox.Count & " messages."
          For i = 1 To objSMS.Inbox.Count
               MsgBox "From: " & objSMS.Inbox.Message(i).Phone _
                & VbCrLf & "Message: " & objSMS.Inbox.Message(i).Text
          Next
     End If
End If
' Disconnect method is executed internally
' whenever the SMS object is terminated.
Set objSMS = Nothing