MessageMemory Property

Description:

The MessageMemory property specifies the memory storage area that will be used for reading incoming text messages using ReadSMS method and deleting incoming SMS using Delete method.

Usage	ObjectName.MessageMemory = strMessageMemory strMessageMemory = ObjectName.MessageMemory
Value Type	String
Access Mode	Read/Write
Valid Values	"SM" - SIM memory "ME" - Modem/Phone Memory
Default Value	"SM"
Remarks	ME type memory may not be supported by all modems/phones. Refer to user manual of the phone to find out which memory is supported by the modem. If not sure then set the Messagememory property as "SM" It has been noticed with certain modems and handsets that in case of communication error, they reset the message memory to its default settings. Therefore, if you are setting the MessageMemory property to a value different from the default memory settings of the modem/phone, then it is safe to set the value of MessageMemory before every Inbox Refresh or Delete Message action.

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"
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