Shoutbox

quote:

---

Originally posted by Matty
'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

---

Thanks alot for all of that information, i esspecially appriciate all of those colors, wow. although i got a Compile Error, um it exspected an identifier on "Object"

Public WithEvents MessengerAPI As object

Object was highlighted as well.