电话号码必须有才行：
....
For Each r As Row In Tables("咨询登记").Rows If r.IsNull("电话一") = False AndAlso r.IsNull("学员姓名") = False Then FoxSMS.SendMsg(r("电话一"), r("学员姓名") &":" & str) End IfNext
加好友 
发短信
Post By：2013/5/31 14:23:00 [显示全部帖子]
