从VBA Excel发送短信到Skype

Question

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("ranya.paraprath@accenture.com")
    Set oChat = aSkype.CreateChatWith(skUser.Handle) 

    oChat.OpenWindow oChat.SendMessage "hello.....testing"

End Sub

我遇到错误

  

运行时错误'-2147220991（80040201）;等待超时

我已经在我的VBA项目中添加了SKYPE4COMLib参考

此问题是因为我正在使用SKYPE进行业务

SKYPE4COMLib DLL不能调用SKYPE业务