Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public WithEvents oComm As CommunicatorAPI.Messenger Set oComm = CreateObject("Communicator.UIAutomation") Private Sub oComm_OnMyStatusChange(hr As Long, ByRef mMyStatus As MISTATUS) Dim username As String If hr = S_OK Then MsgBox "My status changed from " + CStr(mMyStatus) End If ' Do something like get the new status and update the DB End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.