SendDelay Property

Description:

The SendDelay property is used, which defines the minimum time delay interval between two consecutive messages in milliseconds.

Usage	ObjectName.SendDelay = lngSendDelay lngSendDelay = ObjectName.SendDelay
Value Type	Long
Access Mode	Read/Write
Valid Values	1 to 30000
Default Value	1000
Remarks	If you send batch of outgoing messages immediately one after another during a network busy period, it may result in delivery period and retries. Increase the value of SendDelay property to avoid such errors.

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
objSMS.SendDelay = 1250
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