Linked Questions

Popular Questions

Send SMS from VBA Excel to Skype

Asked by At
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("[email protected]")
    Set oChat = aSkype.CreateChatWith(skUser.Handle) 

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

End Sub

I am getting error

Run-time error '-2147220991(80040201); wait time out

I have added the SKYPE4COMLib reference in my VBA project

this issue is because of I am using SKYPE for business

SKYPE4COMLib dll cannot invoke SKYPE for business

Related Questions