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

Posted 2023-02-24

【中文标题】如何使用 Excel VBA 将我的所有 lync 2010 联系人姓名传输到 Excel？

【英文标题】：how to transfer all my lync 2010 contact names to excel using Excel VBA?

【发布时间】：2013-11-21 08:47:43

【问题描述】：

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

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

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

【参考方案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

【讨论】：

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