以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  成批给客户发祝福短信  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15183)
--  作者：jxkqf
--  发布时间：2011/12/15 10:17:00
--  成批给客户发祝福短信

现在有一个客户表，其中有一列“电话号码”，如何用FOXTABLE给这个客户表里的所有客户发送祝福短信？

 

我看了一下帮助，只是给特定的一个客户发送。

 

Dim url As String
Dim http As Object
url = "http://service.winic.org:8009/sys_port/gateway/?id=您的账号&pwd=您的密码&to=接收短信手机号码&content=短信内容&time="
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
MessageBox.Show("返回信息:" & http.responseText)
--  作者：yangming
--  发布时间：2011/12/15 10:19:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=15096&page=3
[此贴子已经被作者于2011-12-15 10:19:03编辑过]