SendRetry Property

Description:

At times due to various reasons the sending of a message may fail in its first attempt (e.g. low network signal strength, network busy etc). the SendRetry property defines the maximum number of retries after there is a failure in first attempt.

Usage	ObjectName.SendRetry = intSendRetry intSendRetry = ObjectName.SendRetry
Value Type	Integer
Access Mode	Read/Write
Valid Values	0 to 10
Default Value	2
Remarks	If SendRetry is set 0, it means there will be no retry attempts. There are times when the message actually is transmitted but due to network congestion or low signal strength, the SMSC may not respond properly and therefore mCore will consider it as error and retry sending (if SendRetry is set to a value of 1 or more).

Usage Example:

Visual Basic / ASP (VBScript)

Dim objSMS As mCore.SMS, strMessage As String
Dim i As Integer, strPhone() As String, blnAllMsgsSent As Boolean
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.LogType = 2
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.LongMessage = 3
objSMS.SendRetry = 2
strPhone(0) = "+919811054321"
strPhone(1) = "9810056432"
strPhone(2) = "9812345678"
strPhone(3) = "+919820054321"
strPhone(4) = "+919832087654"
strMessage = "This is a test message to test send delay property."
blnAllMsgsSent = True
For i = 0 To 4
     objSMS.SendSMS strPhone(i), strMessage
     If objSMS.IsError(True, "My Application") Then
          blnAllMsgsSent = False
     End If
Next
If blnAllMsgsSent Then
     MsgBox "All messages sent successfully!"
Else
     MsgBox "At least one message was not sent!"
End If
' Disconnect method is executed internally
' whenever the SMS object is terminated.
Set objSMS = Nothing