使用VBA在Skype中发送消息

Question

目标：当某个宏完成时，向Skype联系人发送消息。

资料来源：我四处搜索，发现了几个问题，所以试图做同样的事情。这是我使用Excel VBA向群聊发送Skype消息的代码的基础，也是这个代码的基础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

Obs：我在创建的每个模块中都使用option explicit。

Answer 1

这可能没有多大帮助，但我认为您在这里列出的代码不起作用，或者库没有添加到您的excel中。

这里出现了相同的代码：https://stackoverflow.com/a/43172531/8716187

您是否下载并注册了skype dll（错误与未添加出现的activeX控件有关）。如果您使用的是x64，则可能只有x32。。

安装使用Skype4COM. dll依赖项的软件时，该软件应自动为您注册该文件。在某些情况下，您的DLL文件可能无法正确注册，因此，将提供“Skype4COM. dll未注册”错误。幸运的是，您可以使用名为“微软注册服务器”（regsvr32.exe）的内置实用程序重新注册Skype4COM. dll文件。如何从提升的命令提示符（Windows XP、Vista、7、8和10）重新注册Skype4COM. dll：

单击开始按钮。

在搜索框中键入“命令”...不要点击进入！

在键盘上按住CTRL-Shift键的同时，按ENTER键。

将出现一个权限对话框提示您。

单击是。

键入以下命令：regsvr32/u Skype4COM。dll。

按回车键。这将取消注册您的文件。

键入以下命令：regsvr32/i Skype4COM。dll。

点击进入。这将重新注册您的文件。

关闭命令提示窗口。

重新启动与Skype4COM关联的程序。dll错误。

https://www.solvusoft.com/en/files/missing-not-found-error/dll/windows/skype-for-com-api/skype4com/skype4com-dll/

干杯，WWC

Answer 2

当聊天自动化成为各地讨论的话题时，开发人员放弃了这个问题，这让我感到惊讶。

自2013年以来，“Skype for Business”基本上是一个重新命名的Lync，因此了解这一点很重要

Skype <> "Skype for Business"

它就像java和javascript，完全不同，只是品牌名称相似。

了解Skype开发者平台或Skype SDK非常重要，Skype SDK是Office Skype、Skype Web、Skype for Business和Skype的保护伞。

在所有API/SDK中，需要使用：

Lync 2013 SDK文档

因为这是Skype Desktop、Lync和所有以下SFB版本的唯一可用SDK。

持久性聊天示例是在解决类似于此问题的解决方案的基础上开发的。