[RESOLVED] sending sms with listview and checkbox in listview

[useruseronline]

see my file its working correctly

[salsa31]

see my file its working correctly

your file is working but it dosnt pull the db customers

i need a listview

[akhileshbc]

I was asking for the API manual. Or if you know the website of your service provider, let me know. So that I could check the manual and check whether they allow multiple recipients in a single shot.

@useruseronline: Avoid posting EXE files. Post source code instead.

[salsa31]

I was asking for the API manual. Or if you know the website of your service provider, let me know. So that I could check the manual and check whether they allow multiple recipients in a single shot.

@useruseronline: Avoid posting EXE files. Post source code instead.

this?

[salsa31]

this is the text code they send me

[useruseronline]

can u write the customer name and numbers in text file and attach

[salsa31]

can u write the customer name and numbers in text file and attach

i did it at the begining but this will not help man
only the listview can save the the day for me.

[useruseronline]

dont use data base to save recordsssss use text file

[salsa31]

dont use data base to save recordsssss use text file

i cant change the programm that i worked for a year bro.

the whole project relies on the DB
i have like 20 forms using this DB

[salsa31]

plz akhileshbc can you help me with the listview?

[useruseronline]

oh ok that a real problem

[useruseronline]

what problem are u facing isnt it sending msg or not putting the phone number in text2 ?

[salsa31]

you see this code?
lsXml = lsXml & "<TO>" & Text2 & "</TO>"

the text 2 is where i put the number and sends and its working.

but if i want to select all the users or 5 persons to send sms?
thats why i need a listview for that.
to select multiply numbers or just a couple of them
you get me my friend?

[salsa31]

i need a listview that i can pick which person to send sms to thats it

[useruseronline]

got u pro .. add code to lsvw click event

when clicked it should add the text of item selected to listbox
then from there use my method can u do that ?

[salsa31]

got u pro .. add code to lsvw click event

when clicked it should add the text of item selected to listbox
then from there use my method can u do that ?

no exactly

lets say i have 10 customers ok?
in a listview
now i want to pick 3 customers and send them the sms

something is missing in the middle of this code so that it will know i choosed 3 customers get me?
lsXml = lsXml & "<TO>" & LsVw.SelectedItem & "</TO>"

[useruseronline]

no getting u bro ..
u chose 3 cust ok
then u click snd buttn but it does not as text2 is empty rit ?

[salsa31]

no getting u bro ..
u chose 3 cust ok
then u click snd buttn but it does not as text2 is empty rit ?

text 2 is only to send to 1 phone number thats it.
i need the option to send to acouple

[useruseronline]

give me the code to fill the text box with one cust u select

[salsa31]

which code?
i uploaded here all the codes

[useruseronline]

u send me wrong form there is no list its picture box no rit code .... i could have told u before but ignored it

[salsa31]

u send me wrong form there is no list its picture box no rit code .... i could have told u before but ignored it

some thing is missing here

lsXml = lsXml & "<TO>" & LsVw.SelectedItem & "</TO>"

i need to put something instead of the LsVw.SelectedItem

[Max187Boucher]

something like this

Dim i As Integer
Dim PhoneNumbers As String
Dim PhoneArray() As String

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected = True Then
PhoneNumbers = PhoneNumbers & ListView1.ListItems(i).SubItems(1) & ","
End If
Next

PhoneArray = Split(PhoneNumbers, ",")
For i = 0 To UBound(PhoneArray) - 1
'Send Code... blah blah "mailto:" & PhoneArray(i)     'i will put example as debug.print
Debug.Print "mailto:" & PhoneArray(i)
Next

i attached a quick small example of listview

[useruseronline]

i hope now u get the listview method

[akhileshbc]

this?

It looks like they allow multiple <TO> tags.

Have you tried that function that I posted ?

Private Function getSelectedNums() As String
    Dim temp As String
    temp = ""
    
    Dim i As Long
    For i = 1 To ListView1.ListItems.Count  '~~~ Loop through the listview
        If ListView1.ListItems(i).Checked = True Then   '~~~ if an item is checked
            temp = temp & "<TO>" & ListView1.ListItems(i).SubItems(1) & "</TO>" & vbCrLf    '~~~ enclose the number in "<TO>" tags
        End If
    Next
    
    getSelectedNums = temp  '~~~ return it
End Function

Usage:

'....
lsXml = lsXml & "<BODY><CONTENT>" & Text1 & "</CONTENT><DEST_LIST>"
lsXml = lsXml & getSelectedNums()
lsXml = lsXml & "</DEST_LIST></BODY>"
'...

[salsa31]

It looks like they allow multiple <TO> tags.

Have you tried that function that I posted ?

Private Function getSelectedNums() As String
    Dim temp As String
    temp = ""
    
    Dim i As Long
    For i = 1 To ListView1.ListItems.Count  '~~~ Loop through the listview
        If ListView1.ListItems(i).Checked = True Then   '~~~ if an item is checked
            temp = temp & "<TO>" & ListView1.ListItems(i).SubItems(1) & "</TO>" & vbCrLf    '~~~ enclose the number in "<TO>" tags
        End If
    Next
    
    getSelectedNums = temp  '~~~ return it
End Function

Usage:

'....
lsXml = lsXml & "<BODY><CONTENT>" & Text1 & "</CONTENT><DEST_LIST>"
lsXml = lsXml & getSelectedNums()
lsXml = lsXml & "</DEST_LIST></BODY>"
'...

where do i put this code?
in the bttnsend?

i replaced this - sXml = lsXml & "<TO>" & Text2 & "</TO>" - for this - lsXml = lsXml & getSelectedNums()

but its not working

[akhileshbc]

"Not working" doesn't helps us to solve your issue !

You have to explain what have you tried and what happened.

[salsa31]

i put this - sXml = lsXml & "<TO>" & getSelectedNums() & "</TO>"
it dosnt give me any error
and its not sending the sms to the specific phone number that i choose from the listview

[salsa31]

tnx for everybody who tried to helpe me
but theres sometimes you cant do nothing.
useruseronline can you send me the code with the listbox plz?
the full code yes?
lsets say i want to send the sms through the listbox
how do i do that?

[Max187Boucher]

I thought you told us your code was working and you could send sms to one number at a time.. If akhileshbc's code not working then why don't you use the example I gave you just loop throught the phone numbers selected and send one by one like you used to! We gave u anwsers and u still say its not working! The only change that you might need is to add a pause between each time you send an sms like the "sleep api" or timer control

Sleep 500

[salsa31]

I thought you told us your code was working and you could send sms to one number at a time.. If akhileshbc's code not working then why don't you use the example I gave you just loop throught the phone numbers selected and send one by one like you used to! We gave u anwsers and u still say its not working! The only change that you might need is to add a pause between each time you send an sms like the "sleep api" or timer control

Sleep 500

its working if i send sms 1 by one
but what if i want to send to all customers or to a few cutomers?
i gave up on the listview beacuse it didnt work
do you have an idea how do i send to all with the listbox?

[useruseronline]

ya u can send it by listbox but not by list view , ok ?

[salsa31]

ok
show me the code please

[useruseronline]

see the file

[salsa31]

look this code
sXml = lsXml & "<TO>" & Text2 & "</TO>"
what do i write intsead of text 2?
this is the sending code bro

[useruseronline]

list2.text

[salsa31]

dosnt work

[akhileshbc]

Do one thing, replace that line with this:

sXml = lsXml & "<TO>number1</TO>"
sXml = lsXml & "<TO>number2</TO>"

In the above two lines, replace "number1" and "number2" with any 2 mobile numbers to test.

See if the message was sent to those two numbers. If not, you could conclude that your API provider is preventing multiple recipients.

[useruseronline]

dont put this in the place where i write to put code
sXml = lsXml & "<TO>" & Text2 & "</TO>"

place this code in the send button where u want to send the number
sXml = lsXml & "<TO>" & list2.text & "</TO>"

then put this code in my button
nameofursendbutton_click

[salsa31]

Do one thing, replace that line with this:

sXml = lsXml & "<TO>number1</TO>"
sXml = lsXml & "<TO>number2</TO>"

In the above two lines, replace "number1" and "number2" with any 2 mobile numbers to test.

See if the message was sent to those two numbers. If not, you could conclude that your API provider is preventing multiple recipients.

yes its sending