VBA Excel & Skype

[okragesh]

Can you please provide me code for sending message from excel vba to Skype for business


below code is not working for me




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


I am getting error as 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


can you please help me for solve this issue