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

xhm0924

厉害，飞信也搞到Excel里面

yehesuifeng

谢谢分享！

屠龙小刀客

你可以做到返回手机回复给飞信的信息内容吗？ 这个我以前可以返回的  但是现在我不知道该如何返回了 ，417229499@qq.com

daley

屠龙小刀客 发表于 2011-12-17 23:55
你可以做到返回手机回复给飞信的信息内容吗？ 这个我以前可以返回的  但是现在我不知道该如何返回了 ，

这个原理不难的，根本不用参数，你想想看，你能发信息出去，并且“知道”已发送成功，那么再在程序的结尾返回给自己发报告不就解决了。

daley

例如将原来的这句代码

                      If OptionButton1.value = True Then
                                    .Text = IIf(Fetion.SendMsg(HM, NR) = True, "已发送成功", "失败")
                                Else
                                    .Text = IIf(Fetion.SendShortMsg(HM, NR) = True, "已发送成功", "失败")
                                End If


改为：
                               If OptionButton1.value = True Then
                                    
                                    MM = Fetion.SendMsg(HM, NR)
                                    
                                    .Text = IIf(MM = True, "已发送成功", "失败")
                                    Fetion.SendMsg FSF, "您向" & HM & "发送的信息" & IIf(MM = True, "已成功!!", "失败!!")
                                Else
                                    
                                    MN = Fetion.SendShortMsg(HM, NR)
                                
                                    .Text = IIf(MN = True, "已发送成功", "失败")
                                    Fetion.SendShortMsg FSF, "您向" & HM & "发送的信息" & IIf(MN = True, "已成功!!", "失败!!")
                                    
                                End If

屠龙小刀客

我的意思不是这样的   
我的意思是，如果我用手机给你回复一句如”你好，谢谢你“，如何把这句这条消息返回到到excel表中啊


答：明白你的意思，这个作用是“收”的功能，而目前类提供的仅是“发”的功能。
很抱歉，出于安全原因，不考虑增加这个“收”的功能，而且确实需要完全功能建议使用飞信官方的系统，因为他们更加全面。

dok001

首先表示钦佩和感谢！
但我在WinXp 和 office 2003下不能运行。提示：编译错误，找不到工程或库。
刚下载安装了飞信，并试着给自己发了条短信成功。
我看了所有跟帖
试了多次，不行！
只有：设置“工具--附加控件”时，该菜单项不可用（灰暗）
是不是2003下不行？
请指点

dok001

还有如何反注册“MSCOMCT2.OCX”控件，请教教我


答：
已在1楼上传“反注册OCX控件”注册命令，请查看。

屠龙小刀客

版主  ，你可以搞定吗

stlhq

下来试试。。。