使用Excel VBA将Skype消息发送到群聊

我试图使用Excel VBA发送Skype消息，我发现这个代码

Sub Test() 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 

它工作得很好，但只适用于单个联系人..我也发现这个代码

 msg.Chat.SendMessage("your message") 

这应该发送消息到组联系人，但我似乎无法将其集成到上面的代码..我发现了一些链接在线提示可能，但他们都在C＃而不是VBA ..任何帮助这是非常赞赏..

Answer 1

您需要定义多个用户。 一种方法是使用集合。

 Sub Test() Dim aSkype As SKYPE4COMLib.Skype Set aSkype = New SKYPE4COMLib.Skype Dim oChat As Chat Dim skUser As SKYPE4COMLib.User Set oMembers = CreateObject("Skype4COM.UserCollection") oMembers.Add(oSkype.User("user_name1")) oMembers.Add(oSkype.User("user_name2")) Set oChat = oSkype.CreateChatMultiple(oMembers) oChat.OpenWindow oChat.Topic = "Group Chat Topic" oChat.SendMessage "automated message" End Sub 

---

这里有很多来自Skype的大量的VBA例子。 请参阅第21页了解多重聊天。