Tag: skype

使用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 ..任何帮助这是非常赞赏..

使用VBA在Skype中发送消息

目标：当某个macros完成时，向Skype联系人发送消息。 来源：我search了一下，发现了一些问题，试图做同样的事情。 这是我使用Excel VBA将Skype消息发送到群聊的代码的基础，也是这个https://www.mrexcel.com/forum/excel-questions/424432-sending-skype-message-through-excel -vba.html这两个问题都使用类似的代码。 问题：当我运行代码时，出现以下错误： 运行时错误“429”：ActiveX组件不能创build对象 在线上： Set aSkype = New SKYPE4COMLib.Skype 问：这个API是否仍然适用于这种程序？ 我如何解决正在进行的错误？ 码： Sub testingskype() 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 "message" End Sub Obs：我在每个创build的模块中显式使用选项。