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

river_t

不错。。。

consam

'添加好友

1. Public Function AddFris(nick, name, mobile) '添加好友
   
2.     url = "/im/user/insertfriendsubmit.action"
   
3.     data = "&nickname=" & nick & "&localName=" & name & "&number=" & mobile & "&buddylist=2&type=0"
   
4.     temp = Post(url, data)
   
5.    
   
6.     Set re = New RegExp
   
7.         re.Global = True
   
8.         re.IgnoreCase = True
   
9.         re.Pattern = "([^\x00-\xff]{8,})"
   
10.         If re.Test(temp) Then
    
11.             Set ms = re.Execute(temp)
    
12.             AddFris = ms.Item(0).Submatches(0)
    
13.         End If
    
14. End Function
    

复制代码

moonlightshadow

强人啊，只是现在我还不会呢，先留下，慢慢学

gx20011011

daley 老师，您好 1、我现在使用2003版本，2、在通讯录中如果单独飞信内容列，可以直接从通讯录excel表中任意编辑方便飞信调入，因为内容可能不相同。请daley 老师时间空闲时考虑增加需求，职员考勤系统+工薪结算+收银机对账+飞信接口通讯，有些复杂，暂时看不明白，谢谢

答：在类模块中，已经标注得相对详细：

Private Sub 发送短信代码()
    Dim Fetion As New VBAFetion
    M = “发送手机号”
    PASS = "飞信登陆密码"
    JS = "接收方手机号”
   
    If Fetion.Init(M, PASS) Then
        '发送飞信
        Fetion.SendMsg JS, "飞信内容"
        
        '发送短信
        Fetion.SendShortMsg JS, "短信内容"
    End If
End Sub

在“信息内容”这里自行引用你想引用的列或内容即可。

[ 本帖最后由 daley 于 2011-8-1 08:32 编辑 ]

hesong83386

很强大啊

heimao601

谢谢，顶一个。

shjshjhdq

谢谢版主分享

悉心

强大，下载试试，谢谢！

dark2010

太好了，真是感谢

demon.tw

1. 
   
2. '添加好友
   
3. 'nickname  添加好友请求信息中显示的名称(我是nickname,正在使用中国移动飞信业务,想加您为好友.)
   
4. 'mobile    对方手机号码
   
5. Public Function AddFriend(nickname, mobile)
   
6.     url = "/im/user/insertfriendsubmit.action"
   
7.     data = "nickname=" & nickname & "&localName=&number=" & mobile & "&buddylist=0&type=0"
   
8.     wml = Post(url, data)
   
9.     If InStr(wml, "发送成功") > 0 Then
   
10.         AddFriend = True
    
11.     Else
    
12.         AddFriend = False
    
13.     End If
    
14. End Function

复制代码