excel SKYPE4COMLib不使用Skype for Business (SfB)

Question

是否有一种方式通过Skype为商业发送消息使用excel VBA？我尝试添加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) (前称Lync)
• 面向消费者的Skype (SfC)

这两种产品都可以用于聊天和通话(VOIP)，但它们不是相同的产品。SfB主要用于SfC主要用于消费者的公司，因为您可以在这里免费下载客户端，也可以免费使用SfC中的一些特性。

Skype4com.lib只与SfC兼容，不与SfB兼容。这是因为Lync 2013/SfB 2015没有公开Excel可以使用的COM入口点(见这里)。如果您希望发送与SfB的聊天，您应该检查UCWA 2.0。