VBA to retrieve Skype for Business presence/online status

Hi,

I'm looking to create a function that checks a user's presence on Skype for Business (e.g. Offline, Away etc). I know this was possible when Skype used to be Lync, using the Microsoft Communicator reference. However, I'm not sure how to do so now, and if there's any way to do it without downloading a SDK.

Any help is much appreciated.

The skype com library seems to be installed with skype (for personal anyway - don't have business). I've never used it in anger, but just had a little dabble now, seems very straightforward. You'll need to add a reference to "Skyle4COM 1.0 Type Library" (or that's what it is on my computer anyway):

Sub test()

    Dim s As SKYPE4COMLib.Skype
    Dim currentUser As SKYPE4COMLib.User
    
    Set s = New Skype
    Set currentUser = s.currentUser
    
    Debug.Print "Display Name:", currentUser.Handle
    Debug.Print "Is Online:", currentUser.onlineStatus = olsOnline
    


End Sub

This appears to have been discontinued and unavailable in Skype for Business

Trevor, that's what I've used and the OP reckons is discontinued (which it's not - I installed it only last week). But it appears it may not be available in the business edition

Originally Posted by TMS

Hi Kyle

yes, I've used your example and it does work for the current user ... apart from coming up with a message about using third party apps. Can you block this?

At the risk of a minor hijack, how would you use it to access the status of a user other than the current user?

Thanks, Trevor

This is more or less what I was looking for to be fair. However, sadly I don't believe this Type Library is installed with Skype for Business

I don't think you can block it, it's a security feature - should only need accepting once.

You can do a couple of things, you can search for users or get a specific user by handle like this:

Sub test()

    Dim s As SKYPE4COMLib.Skype
    Dim user As SKYPE4COMLib.user
    Dim users As SKYPE4COMLib.UserCollection
    
    Set s = New Skype
    
    Set users = s.SearchForUsers("Dave")
    
    For Each user In users
        Debug.Print user.Handle, user.FullName, user.PhoneHome
    Next user
    
        
    Set user = s.user("dave123")
    Debug.Print user.Handle, user.FullName, user.PhoneHome
    


End Sub