飞信VBA系统接口----通讯录

天外恒星

太强大了吧，这也行啊，试过了，厉害{:soso_e179:}

tsyanyan

EXCEL2007 WIN7 测试成功,真牛X

goldowl2011

灰常感谢，学习一下。

莫其名

还遇到两个问题：
  1.从飞信里导出来的好友分组并不是按“好友系”，“家族系”这样分类，能否直接从通讯录中选择分组列表？
  2.怎么设置记住登录密码和登录号码列表？



答：

出于安全原因，未设置该项“功能”，只是在控件里面直接输入手机号或相关的密码进行发送，敬请理解。
（在这个帖子中是包含有手机号码记录或加载列表：http://club.excelhome.net/thread-744110-1-1.html  )

关于“好友系”或其它系的列表问题，只是在工作表内“通讯录”获取下拉列表，没有通过官方的函数获取列表，因为实际中没有此需要，功能健全建议用官方的飞信系统。

dongfei_1972

谢谢楼主的无私奉献。{:soso_e181:}

simba4015

太牛了。。。。

zsyufu

太强了，好好学习学习

dyxhi

能不能对不同的号码发送不同的短信内容？
比如在表格中增加一列“短信内容”，送其作为发送内容。求高手修改。



答：不要全部打上钩，就是一对N对象发送。

这个问题：比如在表格中增加一列“短信内容”，送其作为发送内容。求高手修改。
   答：上传或发布新帖，重新描述你的要求，试试帮你自定义。

ahab

我的附加控件是灰色的，点不开，这个怎么办啊。



答：要在VBA窗体的模式下才能“点击引用”。

吴民光

daley 发表于 2011-7-23 16:39
介面截图：

通讯录增加姓名这里有点问题，我想增加张三或三丰，都提示已经有记录了，也就是说只有姓名前两个字或后两个字是相同的，都提示已经有该记录了



答：经测试确实有该问题，将这些代码：

    With Sheets("通讯录")
        If Not .Range("C:C").Find(ComboBox1.Text) Is Nothing And ComboBox1.Text <> "" Then
            MsgBoxTimeOut 0, "“通讯录”内已经存在该姓名记录!!", "重复姓名", 16, 0, 1500
            Control.SetFocus
            Exit Sub
        End If
    End With



更改为：


         NR = WorksheetFunction.Match(ComboBox1.Text, Sheets("通讯录").Range("C:C"), 0)
   
    If NR > 1 And ComboBox1.Text <> "" Then
        MsgBoxTimeOut 0, "“通讯录”内已经存在该姓名记录!!", "重复姓名", 16, 0, 1500
        ComboBox1.SetFocus
        Exit Sub
    End If