在excel中使用VBA发送即时消息

Question

运行此脚本时，我不断收到错误消息：

Sub sendtext()

    Dim msgr as instantmessengerconversationWndAdvanced
    Dim Text as string

    Text= range("a1").value

    Instantmessage ([email protected])
    msgr.sendtext(Text)

End Sub

它打开了一个聊天窗口，其中列出了正确的人，但是进入文本部分时出现错误：

运行时错误'494'：必需对象

我检查了引用并浏览了对象库。我确实列出了sendtext()函数，这让我感到困惑。我有什么遗漏吗？感谢您的帮助。

Answer 1

检查您正在使用的对象库的文档，以了解如何获取该类的实例。