Lync 2013 for VBA 的通信器 API 去了哪里

Lync 2013 for VBA的通信器API去了哪里？

vba
Sub SendMessage()
    Dim teamsApp As Object
    Dim teamsChat As Object
    Dim messageText As String
    
    ' 创建Teams应用程序对象
    Set teamsApp = CreateObject("Teams.App")
    
    ' 创建一个新的聊天会话
    Set teamsChat = teamsApp.StartChatWith("user@example.com")
    
    ' 设置要发送的消息内容
    messageText = "Hello, how are you?"
    
    ' 发送消息
    teamsChat.SendMessage messageText
End Sub
Sub GetContacts()
    Dim teamsApp As Object
    Dim contacts As Object
    Dim contact As Object
    Dim contactName As String
    
    ' 创建Teams应用程序对象
    Set teamsApp = CreateObject("Teams.App")
    
    ' 获取联系人列表
    Set contacts = teamsApp.GetContacts
    
    ' 遍历联系人列表
    For Each contact In contacts
        ' 获取联系人姓名
        contactName = contact.FullName
        
        ' 在调试窗口中显示联系人姓名
        Debug.Print contactName
    Next contact
End Sub