I have this Code:
.....
Dim SmsOk As PhoneSms
Dim i As Int
Pb.Progress = 0
For i = 1 To 10
Dim cells() As String
cells = List1.get(i)
Pb.Progress = i/List1.Size * 100
txtNominativo.Text = cells(0) & " Cell. (" & cells(1) & ")"
'SmsOk.Send2(cells(1),txtMSG.Text & "(" & i & ")",False,False) '<- Op 1
SmsOk.Send(cells(1),txtMSG.Text & "(" & i & ")") ' <- Op 2
Wait(200)
Log(cells(1) & " -- " & txtMSG.Text & "(" & i & ")")
DoEvents
Next
....
No send all 10 sms es. send 1,2,3,4,5,6,10 non send 7,8,9
I try with Op 1 and Op 2
Thanks
Domenico
.....
Dim SmsOk As PhoneSms
Dim i As Int
Pb.Progress = 0
For i = 1 To 10
Dim cells() As String
cells = List1.get(i)
Pb.Progress = i/List1.Size * 100
txtNominativo.Text = cells(0) & " Cell. (" & cells(1) & ")"
'SmsOk.Send2(cells(1),txtMSG.Text & "(" & i & ")",False,False) '<- Op 1
SmsOk.Send(cells(1),txtMSG.Text & "(" & i & ")") ' <- Op 2
Wait(200)
Log(cells(1) & " -- " & txtMSG.Text & "(" & i & ")")
DoEvents
Next
....
No send all 10 sms es. send 1,2,3,4,5,6,10 non send 7,8,9
I try with Op 1 and Op 2
Thanks
Domenico