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
MessageBox.Show(mobnos & "==>" & avgSMS)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)