目标:当某个宏完成时,向Skype联系人发送消息。
来源:我搜索了一下,在stackoverflow上找到了一些尝试做同样事情的问题。这是我使用的代码的基础:Using Excel VBA to send Skype messages to Group Chat,还有这个https://www.mrexcel.com/forum/excel-questions/424432-sending-skype-message-through-excel-vba.html 这两个问题都使用了类似的代码。
问题:当我运行代码时,我得到以下错误:
运行时错误 '429':ActiveX 组件无法创建对象
在这行代码中:
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
注意: 我在创建的每个模块中都使用了"Option Explicit"选项。
Set aSkype = CreateObject("SKYPE4COMLib.Skype")
。这有什么区别吗? - LocEngineerHKCR\WOW6432Node\CLSID\{830690FC-BF2F-47A6-AC2D-330BCB402664}\InprocServer32
的默认路径是否为C:\PROGRA~2\COMMON~1\Skype\SKYPE4~1.DLL
并且存在。 - Florent B.