Shoutbox

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

---