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

【问题标题】：Using Excel VBA to send Skype messages to Group Chat使用 Excel VBA 将 Skype 消息发送到群聊
【发布时间】：2014-12-18 22:57:33
【问题描述】：

我正在尝试使用 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 。非常感谢您对此的任何帮助..

【问题讨论】：

只是一个疯狂的猜测，但也许它应该是msg.oChat.SendMessage("your message")

标签： excel skype skype4com vba

【解决方案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

这是一个很棒的resource from Skype，其中包含许多 VBA 示例。多聊天见第 21 页。

【讨论】：

跟进问题，如果它是现有的聊天组怎么办？