Question

我对Lync知道的唯一几行代码可能只是

Dim M As CommunicatorAPI.Messenger    
Set M = CreateObject("Communicator.UIAutomation")
Range("A1") = M.MyStatus

我意识到可能会尝试使用.getcontact但是真的尝试了很多次，所以有点需要帮助，谢谢

Answer 1

以下是从Lync获取所有联系人的代码。希望这会有所帮助。

'。getContact'将无法正常工作，因为它会根据登录信息为您提供联系人作为对象。服务ID。可以使用'.MyContacts'。

Sub getAllMyContacts()

 Dim M As CommunicatorAPI.Messenger
 Set M = CommunicatorAPI.Messenger
 Set t = M.MyContacts

 Sheet1.Cells(1, 1).Value = "Name"
 Sheet1.Cells(1, 2).Value = "Sign In ID"
 Sheet1.Cells(1, 3).Value = "Status"
 i = 2
 For Each t1 In t
    Sheet1.Cells(i, 1).Value = t1.FriendlyName
    Sheet1.Cells(i, 2).Value = t1.SigninName
    Sheet1.Cells(i, 3).Value = t1.Status
    i = i + 1
 Next
 MsgBox "Completed" 
End Sub

如何使用Excel VBA将我所有的lync 2010联系人姓名转移到excel？

1 个答案: