Concatenate Property

Description:

If concatenated messages are received by the GSM modem, they are stored as multiple messages in the memory of the GSM modem (or SIM). If the Concatenate property of Inbox collection object is set to True then the parts of a concatenated message are joined together and stored as one message in the Inbox collection. If Concatenate property is set to False then the concatenated messages will be stored as multiple messages in the Inbox collection.

Usage	ObjectName.Inbox.Concatenate = blnConcatenate blnConcatenate = ObjectName.Inbox.Concatenate
Value Type	Boolean
Access Mode	Read/Write
Valid Values	True - Retrieves multiple parts of a concatenated message as one single message item in the Inbox (Default) False - Retrieves multiple parts of concatenated message as multiple message items in the Inbox
Default Value	True
Remarks	If Concatenate property is set to True: Deleting the concatenated message item from the Inbox deletes all the parts of the concatenated message in the GSM modem Incomplete or partially received concatenated messages will not be included as items of the Inbox If Concatenate property is set to False: Only one part message of the concatenated message can be deleted at a time from the GSM modem.

Usage Example:

Visual Basic / ASP (VBScript)

Dim objSMS As mCore.SMS, Msg As Message
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
objSMS.Inbox.Refresh
If Not objSMS.IsError(True) and objSMS.Inbox.HasMessages Then
     MsgBox "Total " & objSMS.Inbox.Count & " messages!"
     For Each Msg In objSMS.Inbox
          MsgBox Msg.TimeStampRFC & vbCrLf & "From: " _
           & Msg.Phone & vbCrLf & Msg.Text
     Next
End If
' Disconnect method is executed internally
' whenever the SMS object is terminated.
Set objSMS = Nothing