【发布时间】:2017-03-31 11:30:05
【问题描述】:
有没有办法使用 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
但它不起作用:( 甚至可能吗? 非常感谢!
【问题讨论】:
标签: excel skype-for-business vba