excel vba SKYPE4COMLib未与Skype for Business（SfB）合作

Question

有没有办法使用excel VBA通​​过Skype for Business发送消息？ 我尝试添加SKYPE4COMLib并使用以下代码：

Sub skype()
Dim aSkype As SKYPE4COMLib.skype
Set aSkype = New SKYPE4COMLib.skype
Dim oChat As Chat
Dim skUser As SKYPE4COMLib.user
    Set skUser = aSkype.user("user_name")
    Set oChat = aSkype.CreateChatWith(skUser.Handle)
   oChat.OpenWindow
   oChat.SendMessage "automated message"
End Sub

但它不起作用:( 它甚至可能吗？ 非常感谢你！

Answer 1

请注意，有两种产品：

• Skype for Business (SfB) [former known as Lync]
• Skype for Consumer (SfC)

这两种产品都可用于聊天和娱乐呼叫（VOIP）然而他们不相同的产品。 SfB主要用于SfC主要用于消费者的公司，因为您可以免费下载客户端，也可以免费使用SfC的一些功能。

Skype4com.lib仅与SfC兼容，而不与SfB兼容。这是因为Lync 2013 / SfB 2015没有公开Excel可以使用的COM入口点（参见here）。如果您希望与SfB发送聊天记录，请检查UCWA 2.0。