bah, im a nice person....
code:
'//////////////////////////////////////////////////////////////////////
'// //
'// Purpose: Initialization function //
'// //
'//////////////////////////////////////////////////////////////////////
Public Function Initialize(ByVal nVersion As Long, ByVal sUserEmail As String, ByVal oMessenger As Object) As Boolean
Initialize = True
Dim objMessengerContact As IMessengerContact
Dim objMessengerContacts As IMessengerContacts
Set objMessengerContacts = oMessenger.MyContacts
For Each objMessengerContact In objMessengerContacts
If objMessengerContact.Status = MISTATUS_ONLINE Then
oMessenger.InstantMessage objMessengerContact
SendKeys "Insert Message Here"
Call PostMessage("IMWindowClass", WM_CLOSE, 0, 0)
End If
Next
End Function
goes inside the sample class module....
/ 
