主题：成批给客户发祝福短信

现在有一个客户表，其中有一列“电话号码”，如何用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)