|
RE: Plugin Help Requested
'This is just an example for calling the oMessenger object passed through the Initialize Function into a Variable.
'Make sure to set a reference to the MessengerAPI Type Library
Public WithEvents MessengerAPI As Object 'You can use MessengerAPI.Messenger but you must set a reference to the MessengerAPI Type Library
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
Initialize = True
Set MessengerAPI = oMessenger
End Function
Private Sub MessengerAPI_OnContactStatusChange(ByVal pMContact As Object, ByVal mStatus As MessengerAPI.MISTATUS)
'Declare an Object variable to hold the IMContact
Dim IMContact As Object
'Set our variable to the the object passed through the function
Set IMContact = New pMContact
'Display a message box with the contact email and status (Note status is an integer not a string)
MsgBox "Email: " & IMContact.SigninName & vbNewLine & "Status: " & mStatus
End Sub
| 
/ 
