使用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。。非常感谢您在这方面的任何帮助

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

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

---

---

下面是一个很棒的示例，其中有很多VBA示例。多聊天见第21页。

j这是一个粗略的猜测，但可能应该是

msg.oChat.SendMessage（“您的消息”）

后续问题，如果是现有的聊天组怎么办？