none
VBA Live messenger words RRS feed

  • Question

  • Bonjour,

    J'aimerais utiliser VBA pour commander MSN,

    Donc voici mon code j aimerais envoyer un message a tous mes contacts avec la methode sendkeys mais defois le message ne passe pas ou mal écrit dans la fenetre du contact ... probleme de temporisation ???

    Et de plus je n'arrive pas à faire marcher mon code avec toutes les versions Words 2007,2003,200 pourquoi ??? probleme de librarie ????

    Voici mon code

     

    Private Msn As MessengerAPI.Messenger

     

    Private Sub Document_Open()

     

    'necessite d'activer la reference "Messenger API Type Library"
    Dim Contacts As MessengerAPI.IMessengerContacts
    Dim intcontacts As Long

     

    Set Msn = New MessengerAPI.Messenger
    Set Contacts = Msn.MyContacts

     

    If Not Msn.MyStatus = MISTATUS_OFFLINE Then

      For intcontacts = 0 To Contacts.Count - 1
         WriteMessage Contacts.Item(intcontacts).SigninName, "Coucou les loulous je vous fais un gros bisoux"
      Next intcontacts

      Msn.Signout

    End If

     

    Set Msn = Nothing
    Set Contacts = Nothing

     

    End Sub

     

    Sub WriteMessage(Email As String, MessageEmail As String)

    Dim Contact As MessengerAPI.IMessengerContact
       
        Set Contact = Msn.GetContact(Email, Msn.MyServiceId)
       
        If Contact.Status = MISTATUS_ONLINE Then
            Msn.InstantMessage Contact
            VBA.DoEvents
            VBA.SendKeys MessageEmail + "~" + "%{F4}", True
            VBA.DoEvents
        End If

    End Sub

     

    Voila

    Merci.

    samedi 16 août 2008 09:57