以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  短信群发  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60483)
--  作者：xjc620
--  发布时间：2014/11/25 17:22:00
--  短信群发

老师这个怎么把表:发送内容"里的车号,冀B---自动获取表:当月二保里通过逻辑列选择的车号,然后在当月二保里面发送短信,实现给每个车号发送短信时在短信内容里自动添加上车号
[此贴子已经被作者于2014-11-25 17:25:50编辑过]
--  作者：有点甜
--  发布时间：2014/11/25 17:37:00
--  

 无法理解你什么意思

 

 查找内容参考 http://www.foxtable.com/help/topics/0396.htm

 

 
--  作者：xjc620
--  发布时间：2014/11/25 18:01:00
--  

以下内容是专门发给有点甜浏览
--  作者：有点甜
--  发布时间：2014/11/25 19:12:00
--  

 

[此贴子已经被作者于2014-11-25 19:52:04编辑过]
--  作者：xjc620
--  发布时间：2014/11/25 19:45:00
--  
老师这个如果我同时选择两台车或多台车,然后选择完发送内容后,发送出去都是获取的同一车号,而且都是发给同一个电话,发送出去的条数是选了多少台车,发送多少条.
刚才我试了下,选择了第一台车和第二台车,结果从短信平台查询,发送条数是4条,接收信息的手机号码都是第一台的手机号,发送了两次,每次两条.
--  作者：有点甜
--  发布时间：2014/11/25 19:52:00
--  

写错了

 

Dim msg As String = ""

Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")
For Each dr As DataRow In DataTables("当月二保").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText
   
Next

For Each dr As DataRow In DataTables("日新车队").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText
Next
--  作者：xjc620
--  发布时间：2014/11/25 20:10:00
--  
可以了,但怎么不弹出窗口呢,就是发送成功的提式窗口
--  作者：有点甜
--  发布时间：2014/11/25 20:11:00
--  
 你加上msgbox("返回信息：" & msg)
--  作者：xjc620
--  发布时间：2014/11/25 20:24:00
--  
老师这个加在哪合适啊,加第一项后面会弹出4个对话框,加在后面一项不会弹出
--  作者：有点甜
--  发布时间：2014/11/25 20:26:00
--  
 

Dim msg As String = ""

Dim content As String = DataTables("发送内容").GetComboListString("内容", "选择 = true")
For Each dr As DataRow In DataTables("当月二保").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText & vbcrlf
   
Next

For Each dr As DataRow In DataTables("日新车队").Select("短信群发 = true")
    Dim url As String = "http://114.215.136.186:9002/sms/servlet/UserServiceAPI?method=sendSMS&isLongSms=0&username=353999666&password=MTU4OTk4&smstype=1&mobile={0}&content={1}"
    url = String.Format(url, dr("电话"), content.Replace("|", chr(13)).Replace("---", dr("车号")))
    output.show(url)
    Dim http = CreateObject("MSXML2.XMLHTTP")
    http.Open("get", url, False)
    http.send()
    msg &= http.responseText & vbcrlf
Next

msgbox("返回信息:" & msg)