HasMessages Property

Description:

The HasMessages property returns a Boolean value to indicate if there are any incoming messages in the Inbox collection object, after the last Refresh or Delete method was called..

Usage	blnResult = ObjectName.Inbox.HasMessages
Value Type	Boolean
Access Mode	Read Only
Valid Values	True - The Inbox has at least one message in it after the last Refresh or Delete was called. False - The Inbox collection object is empty
Remarks	The Count property value gives the number of messages in the Inbox collection object.

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 objSMS.Inbox.HasMessages 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