Action Property

Description:

The Action property defines the action attribute of the WAP Push message (Service Indication).

Usage	ObjectName.WapPush.Action = intAction intAction = ObjectName.WapPush.Action
Value Type	Integer
Access Mode	Read/Write
Valid Values	1 - signal-low 2 - signal-medium 3 - signal-high
Default Value	2
Remarks	The interpretation of the Action Attribute is dependent on the capability of the recipient's handset to interpret it. However, as per WAP-167 (WAP Service Indication Specification) by Open Mobile Alliance (OMA) the interpretation of the Action Attributes are as follows: signal-low The Service Indication MUST be postponed without user intervention signal-medium The Service Indication MUST be presented as soon as the implementation allows that to be carried out in a non-user-intrusive manner. signal-high The Service Indication MUST be presented as soon as the implementation allows that to be carried out in a non-user-intrusive manner, or earlier if considered appropriate (which MAY result in a user-intrusive behaviour). This decision can either be based on user preference settings or be carried out at the discretion of the implementation.

Usage Example:

Visual Basic / ASP (VBScript)

Dim objSMS As mCore.SMS, Message As Object
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.SMSC = "+919811099988"
objSMS.WapPush.Action = 2
objSMS.WapPush.Created = 0
objSMS.WapPush.Expiry = "24H"
objSMS.WapPush.Destination = "+919873094767"
objSMS.WapPush.Text = "Check emails on your mobile phone"
objSMS.WapPush.URL = "http://www.mobulus.com/xhtml"
If objSMS.WapPush.IsLengthOK Then
     objSMS.WapPush.Send
     If Not objSMS.IsError(True) Then
          MsgBox "WAP Push Message Sent!"
     End If
Else
     MsgBox "WAP Push message content length exceeds allowed length!"
End If
' Disconnect method is executed internally
' whenever the SMS object is terminated.
Set objSMS = Nothing