主题：短信群发

老师这个怎么把表:发送内容"里的车号,冀B---自动获取表:当月二保里通过逻辑列选择的车号,然后在当月二保里面发送短信,实现给每个车号发送短信时在短信内容里自动添加上车号

 无法理解你什么意思

 

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

 

 

---

以下内容是专门发给有点甜浏览

---

 

老师这个如果我同时选择两台车或多台车,然后选择完发送内容后,发送出去都是获取的同一车号,而且都是发给同一个电话,发送出去的条数是选了多少台车,发送多少条.

写错了

 

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

可以了,但怎么不弹出窗口呢,就是发送成功的提式窗口

 你加上msgbox("返回信息：" & msg)

老师这个加在哪合适啊,加第一项后面会弹出4个对话框,加在后面一项不会弹出

 

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)