|
Dim bm As String = e.Form.Controls("ComboBox1").Value '获得接收部门名称
Dim nr As String = e.Form.Controls("TextBox1").Value '获得发送内容
If bm = "" OrElse nr = "" Then
MessageBox.Show("信息不完整,信息无法发送!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
For Each s As String In DataTables("Users").getvalues("姓名", "部门 = '" & bm & "'") '这行代码如何修改,才能群发给某个部门
'msgbox(s)
Dim d1 As String = Format(Date.now, "yyyy.MM.dd hh:mm")
Dim fs As String
fs =d1 & ":" & nr
Dim fsz As String
fsz=bm & "." & s 're
QQClient.Send(fsz,fs,True )
fsz=""
fs=""
Next
e.Form.Controls("TextBox1").Value = ""
|
加好友 
发短信
Post By：2015/11/20 17:20:00 [显示全部帖子]
