Created Property

Description:

The Created property defines the creation or last modified date of the content page specified by the URL property of the WAP Push message (Service Indication).

Usage	ObjectName.WapPush.Created = varCreated varCreated = ObjectName.WapPush.Created
Value Type	Variant
Access Mode	Read/Write
Valid Values	0 - Do not include Created information 1 - Assign current system date and time to Created property Valid Date Time
Default Value	0
Remarks	Created information is not mandatory and can be skipped where not required. Skipping Created information increases the maximum permissible total length of URL and Text property by 9 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.Created = 1
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