WapPush Method

Description:

WapPush method returns a object which has various properties and methods to send Wap Push messages.

Usage	Set objWap = ObjectName.WapPush
Parameters	None
Returns	The WapPush Object with its own methods and properties

Usage Example:

Visual Basic / ASP (VBScript)

Dim objSMS As mCore.SMS, objWap 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 = "COM2"
objSMS.BaudRate = 57600
objSMS.Parity = "N"
objSMS.DataBits = 8
objSMS.StopBits = "1"
Set objWap = objSMS.WapPush
objWap.Action = 3
objWap.Text = "Check emails on mobile phone"
objWap.URL = "http://www.mobulus.com/xhtml"
objWap.Destination = "+919873094767"
objWap.Send
If Not objSMS.IsError(True) Then
MsgBox "Wap push message sent!"
End If
Set objSMS = Nothing