Text Property

Description:

The Text property must contain the WAP Push text message that will be displayed on the recipients phone screen.

Usage	ObjectName.WapPush.Text = strText strText = ObjectName.WapPush.Text
Value Type	String
Access Mode	Read/Write
Valid Values	Non blank text message
Remarks	The Text property can accept Unicode string (for non-english message), however, it is not essential to set the Character property as 2 (for 16-bit Unicode Character Encoding). mCore™ automatically encodes the text as UTF-8 internally. When sending WAP Push message using mCore™ the total maximum allowed length of Text and URL property can be roughly estimated using the following thumb rule: If Created and Expiry properties are included then the maximum total allowed length of Text and URL property together is approximately 89 characters. The following strings will are not counted in the length of the URL: 'http://', 'https://', 'http://www.', 'https://www.', '.com/', '.net/', '.edu/', '.org/'. If Created property is set to 0 then the maximum total permissible length of Text and URL can be increased by 9 characters If Expiry property is set to 0 then the maximum total permissible length of Text and URL can be increased by 8 characters You can use the IsLengthOK method to check if the length of URL and Text is within permissible length to send the WAP Push message. However, using this method before sending every WAP Push message will reduce the throughput of messages.

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