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

Question

我在运行此脚本时遇到错误：

Sub sendtext()

    Dim msgr as instantmessengerconversationWndAdvanced
    Dim Text as string

    Text= range("a1").value

    Instantmessage (person@mail.com)
    msgr.sendtext(Text)

End Sub

它打开了聊天窗口，列出了正确的人，但是当它到达文本部分时出错：

  

运行时错误＆＃39; 494＆＃39;：需要对象

我检查了引用并浏览了对象库。我确实看到列出了sendtext()函数，这让我感到困惑。我错过了什么吗？任何帮助都表示赞赏。

Answer 1

您实际上并没有创建instantmessengerconversationWndAdvanced类的实例，只是一个变量（初始化为Nothing）。

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