hi
can anyone help me to make code below send long SMS

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub SendSMS()

If Modem.IsOpen = False Then
MsgBox("Port not Open!!")
Exit Sub
End If
If Me.TxtTo.Text = "" Then
MsgBox("No recepient number!!")
Exit Sub

End If

If Me.TxtSMS.Text = "" Then
MsgBox("Blank text message are not allowed!!")
Exit Sub

End If

sendbutton.Enabled = False
Sending = True
SendAttempt = 0
Do
ATSend("AT+CMGF=1")
Result = ATRead(1000)
Loop While Result.Contains("COMMAND NOT SUPPORT")
Do
ATSend("AT+CSMP=17,167,0,0")
Result = ATRead(1000)
Loop While Result.Contains("COMMAND NOT SUPPORT")
Do
Do
ATSend("AT+CMGS=""" & TxtTo.Text & """")
Result = ATRead(1000)
Loop While Result.Contains("COMMAND NOT SUPPORT")
ATSend(TxtSMS.Text & Char.ConvertFromUtf32(26) & vbCr)
'ATSend(MyMessage & Char.ConvertFromUtf32(26) & vbCr)
'ATSend(MyMessage & vbCrLf & Chr(26))

Result = ATRead(10000)
SendAttempt += 1
Loop While Result.Contains("COMMAND NOT SUPPORT") Or (Result.Contains("ERROR") And SendAttempt < 5)
If Result.EndsWith(vbCrLf & "OK" & vbCrLf) Then
TxtSMS.Text = ""
TxtTo.Text = ""
' MsgBox("Message Successfully Sent")
Else
' MsgBox("Message Could Not Be Sent", MsgBoxStyle.Critical, "Error")
End If
sendbutton.Enabled = True
Sending = False


End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------

please help.

what is the problem with you code? seems like ok to me
if message.length > max_amount_of_word_to_send then
'split the message into 2 sms?
end if
like this?

i want to send sms more than 160 character
and the recipient receive as/only 1 message

ya.. becoz sms got limit.. like when u send with your phone also, after certain amount of characters, it will charge extra on you...

so in ur case u need to split the message into few if it is too long and then send multiple times..

something like this:
dim maxlength as integer
dim message as string
again:
i = len(message)
if i > maxlength then
message_frontpart = left(message, maxlength)
message = right(message, i-maxlength)
'send message_frontpart
goto again

else
'send message
end if



loop is better compare to using goto, as i simply type out here
hope this will help

160 characters without unicode, i think about 100 with unicode. if exceed, split into multiple sms.

This post has been edited by narf03: Nov 17 2014, 10:09 AM