El código que uso es el siguiente pero es como si no me detectara que se abre la ventana ni nada. A ver si alguien me sabe ayudar.
Código:
Public WithEvents MSN As Messenger 'API de Messenger
Private WithEvents objMessenger As MessengerAPI.Messenger
Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger
End Sub
Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub
Private WithEvents objMessenger As MessengerAPI.Messenger
Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger
End Sub
Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub
Salu2