Quote Originally Posted by akhileshbc View Post
Means ?

Selecting data from ListView ?
yes exactly
and i already have a api code from a web company
this is the code for sending sms
****************************
Private Sub btnsend_Click()
Dim args

Set winObj = CreateObject("WinHttp.WinHttpRequest.5.1")
Call winObj.Open("POST", "https://cellactpro.net/GlobalSms/ExternalClient/GlobalAPI.asp", False)
winObj.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
winObj.setRequestHeader "User-Agent", "Message Test"
winObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"


'Build the XML for sending

lsXml = "<PALO><HEAD><FROM>ammishov</FROM><APP USER=""******"" PASSWORD=""******""/><CMD>sendtextmt</CMD></HEAD>"
lsXml = lsXml & "<BODY><CONTENT>" & Text1 & "</CONTENT><DEST_LIST>"
lsXml = lsXml & "<TO>" & Text2 & "</TO>"
lsXml = lsXml & "</DEST_LIST></BODY>"
lsXml = lsXml & "<OPTIONAL><CALLBACK> " & Text3 & "</CALLBACK></OPTIONAL></PALO>"


'wscript.echo lsXml

lsXml = ReplaceData(lsXml)
SendString = "XMLString=" & lsXml
winObj.send (SendString)
result = winObj.responseText
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
'Replace Problematic Chars
Function ReplaceData(ByRef data)
data = Replace(data, "&#37;", "%25")
data = Replace(data, " ", "%20")
data = Replace(data, "#", "%23")
data = Replace(data, "&", "%26")
data = Replace(data, "?", "%3F")
data = Replace(data, "+", "%2B")
data = Replace(data, "/n", "%0A")
ReplaceData = data
End Function
*********
i just want to be able to select from the list view a customer and send him a sms
or to select all and send sms
thats it