Send SMS to multiple mobiles vis GSM

Question

0.00/5 (No votes)

See more:

I need to send SMS automatically to multiple numbers form database. I am using SIM900 GSM module.

With ny below code I am able to do so, but using a message dialog, now how can I do it with message dialog.I need to send sms to all the mobile numbers automatically without user intervention.

Thanks in advance, Anyone can help.

What I have tried:

For i As Integer = 0 To mobNo.Rows.Count - 1
                       mobnos = mobNo.Rows(i)(0)
                       MessageBox.Show(mobnos & "==>" & avgSMS)

                       SerialPort1.Write("AT" & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write("AT+CMGF=1" & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write("AT+CMGS=" & Chr(34) & mobnos & Chr(34) & vbCrLf)
                       System.Threading.Thread.Sleep(200)
                       SerialPort1.Write(avgSMS & Chr(26))
                       System.Threading.Thread.Sleep(400)
                       'MsgBox("Sent")


                   Next

Posted 27-Jan-18 21:39pm

ramen79

Updated 27-Jan-18 23:08pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2018-01-27T21:46:00

Solution 1

Take out the line:

MessageBox.Show(mobnos & "==>" & avgSMS)

Posted 27-Jan-18 21:46pm

OriginalGriff

Comments

ramen79 28-Jan-18 9:14am

I have tried, it only sendsms to the 1st number.

OriginalGriff 28-Jan-18 10:04am

Then use the debugger and find out exactly what is going on. How many times does it go round the loop for example. What's in mobNo.Rows would be worth looking at as well.