NÃO ENTENDI O QUE VOCÊ QUIS DIZER COM IMITAR,MAS COLOQUEI ALGUMAS FUNÇOES QUE TALVEZ SEJAM UTEIS,DEPOIS VOCÊ DÁ UMA OLHADINHA.

FAÇA REFERENCIA A Messenger API Type Library.

Private Sub Form_Load()
Dim msn As MessengerAPI.Messenger
Dim ct As IMessengerContact, cts As IMessengerContacts
Set msn = New MessengerAPI.Messenger
Set cts = msn.MyContacts
'ADICIONAR UM CONTATO
msn.AddContact 0, "talk2cod@hotmail.com"
'EXCLUIR CONTATO
Set ct = msn.GetContact("talk2cod@hotmail.com", msn.MyServiceId)
Call cts.Remove(ct)
'ENVIAR MENSAGEM A TODOS QUE ESTÃO ONLINE
For Each ct In cts
If ct.Status = MISTATUS_ONLINE Then
msn.InstantMessage ct.SigninName
SendKeys "Olá" & ct.SigninName & " Você Está Bem??"
SendKeys "{enter}"
End If
Next
End Sub

tb ñ entendi....vc quer imitar o q realmente o Messenger (o chat) o adcionando um contato do msn?????

Olá a tds,

 

Existe um Add-one para o MSN Messenger (Messenger Discovery X) que tem uma Opção que nós podemos imitar o conacto escrevendo "!imitate Mensagem a aparacer" e na Janela aparece como se fôsse o contacto a digitar a frase!...

Achei esta função muito intereçante e gostava de imitala usando o Messenger API

 

Obrigado,