Add Skype reference using Late binding

[MarkCBB]

Hi there,

I found the following code that sends a Skype message. It works perfectly when I add the Skype object reference manually. However I would like to distribute this code, is there a away to use late binding to automatically add the Skype reference on run time? Below is the code.

Sub Skype_ContactCount()

Dim aSkype As SKYPE4COMLib.Skype
Dim int_NumberOfSkypeUserContacts

Set aSkype = New SKYPE4COMLib.Skype

int_NumberOfSkypeUserContacts = aSkype.Friends.Count

Dim oChat As chat
Dim skUser As SKYPE4COMLib.user
    Set skUser = aSkype.user("UserName") ' Add Skype name here
    Set oChat = aSkype.CreateChatWith(skUser.Handle)
    oChat.OpenWindow
    oChat.SendMessage "Hello " & skUser.FullName & " " & Application.UserName & " has " & int_NumberOfSkypeUserContacts & " Skype contacts"
End Sub

 

[Andrew Poulsom]

Maybe try:

Dim aSkype As Object
Dim int_NumberOfSkypeUserContacts

Set aSkype = CreateObject("SKYPE4COMLib.skype")

 

[MarkCBB]

Hi Andrew,

I have tried that but I get the following Error. "ActiveX component can't create Object.

 

[Jon von der Heyden]

Which line does it break on?

Perhaps:

Set aSkype = CreateObject("Skype4COM.Skype")

You need to dimension aSkype, oChat and skUser as Object...

Edit: Just because you use early binding doesn't mean each user will have to set reference. IF there are problems on other user machines it may be because that library doesn't exist on their machine (perhaps they haven't got skype), so late binding still won't work.

 

[MarkCBB]

Hi Jon,

Thankfully, the user group is small and they all have Skype.

Below is where the code is crashing, I have cleaned it up a bit, but Not sure what I am doing wrong, and I am not finding a lot via Google.

Sub Skype_MessageTest()
Dim aSkype As Object
Dim oChat As Object
Dim skUser As Object

Set aSkype = CreateObject("SKYPE4COMLib.Skype") ' error here
Set skUser = aSkype.user("markblackburn86")
Set oChat = aSkype.CreateChatWith(skUser.Handle)
    
oChat.SendMessage "Hello"
End Sub

 

[MarkCBB]

Wait....
Didn't see the change you added.
seems to b working well.
Thank you.