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

我所知道的关于Lync的仅有几行代码可能只有

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

---

我意识到可能可以尝试使用

.getcontact

，但确实尝试了很多次，所以需要帮助，谢谢你以下是从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

---

请记住在帮助您的帖子上单击“标记为答案”，如果标记的帖子实际上没有回答您的问题，请单击“取消标记为答案”。这对阅读该线程的其他社区成员是有益的。