Shoutbox

quote:

---

code:

---

Private objMessenger As MessengerAPI.Messenger
Private Sub Timer1_Timer()
Dim sent As Boolean
   
    Dim objMessengerContact As IMessengerContact
    Dim objMessengerContacts As IMessengerContacts

    Set objMessenger = New MessengerAPI.Messenger
    Set objMessengerContacts = m_objMessenger.MyContacts
If sent = False Then
    For Each objMessengerContact In objMessengerContacts
        If objMessengerContact.Status = MISTATUS_ONLINE Then
          objMessenger.InstantMessage objMessengerContact
          SendKeys "Insert Message Here"
          Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
          sent = True
          End If
    Next
Else
MsgBox "Message Has Already Been Sent!"
End If
End Sub

---

---

When I try to put it it says 'User-defined type not defined!'
What do I do??

It says it in

code:

---

        Dim objMessengerContact As IMessengerContact
        Dim objMessengerContacts As IMessengerContacts

---