以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]群发信息  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33354)
--  作者：anxue
--  发布时间：2013/5/16 13:45:00
--  [讨论]群发信息

图片点击可在新窗口打开查看此主题相关图片如下：短信.jpg
图片点击可在新窗口打开查看
选择通讯录里的姓名，群发短信信息，这个如何实现？
--  作者：ybil
--  发布时间：2013/5/16 13:47:00
--  
单发怎实现,群发也怎实现,不过是For Next而已
--  作者：wuxianzuoji41
--  发布时间：2013/5/16 16:26:00
--  
选中用户，然后右键菜单中，选择发送的短信。不在调用其他的窗体，直接在后台发送。这个右键菜单该怎么做。和后台发送怎么做
[此贴子已经被作者于2013-5-16 17:07:19编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/5/16 17:22:00
--  

群发:

 

If FoxSMS.Ready = False Then
    MessageBox.Show("请先连接短信猫!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
FoxSms.SyncWorkMode = True \'设置为同步工作模式
For Each r As Row In Tables("xxx").Rows
        FoxSMS.SendMsg(r("手机号码"), r("姓名") &":今晚要学狐表,你一个人去吃饭!")
Next