Hello Team,
I would like to firstly thank you for all the great job & continuous support.
I am trying to create a Macro that will call Skype for Business based on a particular event and contact automatically some employees of the group. Below is the code I've used:
Code
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="[email protected]"][email protected][/EMAIL]")
Set oChat = aSkype.CreateChatWith(skUser.Handle)
oChat.OpenWindow
oChat.SendMessage "msg automatique de EXCEL !!!! YAY !!!!"
End Sub
I have also downloaded the dll needed, i.e Skype4COM.dll, but the macro is failing with the error code below:
Run-time error '-2147220991 (80040201)':
Wait timeout
Can someone please help ? I had a similar Macro for Communicator 2007 and it worked perfectly.
Regards,
Jeremie H.