IsLengthOK Method

Description:

The IsLengthOK is a method that allows you to check if the total length of Text and URL property are within the limits of SMS data length (taking in to account all the other properties i.e. Expiry, Created etc.).

Usage	blnResult = ObjectName.WapPush.IsLengthOK
Parameters	None
Returns	Boolean value True - If the total length of URL and Text property are within permissible length False - If the length exceeds the permissible length
Remarks	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

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