使用Excel VBA發送Skype的消息到現有的組

Question

我發現這個代碼創建一個聊天的新組中的Skype

1）我需要能夠將消息發送到現有 Skype組。

2）當我運行下面的代碼（當它到達第9行）時，我得到'Object required'錯誤，這是我不承認的。

有人可以幫我解決這兩個問題嗎？

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 

Answer 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