Expiry Property

Description:

The Expiry property may be used to define the 'si-expires' attribute of the WAP Push message i.e. till when is the push URL content valid. If the recipients phone supports this feature then the WAP Push message will be automatically deleted or marked as 'expired' after the expiry time. If this property is set to '0' then the WAP Push never expires.

Usage	ObjectName.WapPush.Expiry = strExpiry strExpiry = ObjectName.WapPush.Expiry
Value Type	String
Access Mode	Read/Write
Valid Values	"0" - The Push message never expires "1H" to "24H" - 1 Hour to 24 Hours from time of sending "1D" to "31D" - 1 Day to 31 Days from the time of sending "1M" to "12M" - 1 Month to 12 Months from the time of sending
Default Value	"0"
Remarks	Expiry information is not mandatory and can be skipped where not required. Skipping Expiry information increases the maximum permissible total length of URL and Text property by 8 characters.

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