使用 Excel VBA 将 Skype 消息发送到现有组答案

【问题标题】：Use Excel VBA to send Skype messages to an EXISTING group使用 Excel VBA 将 Skype 消息发送到现有组
【发布时间】：2016-10-04 17:10:07
【问题描述】：

我发现这段代码可以在 Skype 中创建与新组的聊天

1) 我需要能够向现有 Skype 群组发送消息。

2) 当我运行以下代码时（当它到达第 9 行时），我得到一个“需要对象”错误，我不明白。

有人可以帮我解决这两个问题吗？

Sub Test2()

  Dim aSkype As SKYPE4COMLib.Skype
  Dim oMembers As SKYPE4COMLib.UserCollection
  Set aSkype = New SKYPE4COMLib.Skype
  Dim oChat As Chat
  Dim skUser As SKYPE4COMLib.User

  Set oMembers = CreateObject("Skype4COM.UserCollection")

  oMembers.Add (oSkype.User("skypeuser1"))
  oMembers.Add (oSkype.User("skypeuser2"))
  oMembers.Add (oSkype.User("skypeuser3"))

  Set oChat = oSkype.CreateChatMultiple(oMembers)
  oChat.OpenWindow
  oChat.Topic = "Group Chat Topic"
  oChat.SendMessage "automated message"

End Sub

【问题讨论】：

标签： excel vba chat skype

【解决方案1】：

Sub Test2()

    Dim aSkype As SKYPE4COMLib.Skype
    Set aSkype = New SKYPE4COMLib.Skype

    Dim oChat As Chat
    Dim oMembers As Object
    Dim skUser As SKYPE4COMLib.User

    Set oMembers = CreateObject("Skype4COM.UserCollection")
    oMembers.Add aSkype.User("username1")
    oMembers.Add aSkype.User("username2")


    Set oChat = aSkype.CreateChatMultiple(oMembers)
    oChat.OpenWindow
    oChat.Topic = "Your Group Chat Topic"
    oChat.SendMessage "automated message"

End Sub

【讨论】：

在您的代码中，未声明 oSkype。这就是它不起作用的原因。