Msn Messenger Api

[fafadinhu]

Estou com o seguinte cógido a baixo.

Public WithEvents MSN As MessengerAPI.Messenger
Private Sub Command2_Click()
On Error Resume Next
buscacto List1, MISTATUS_ONLINE
If List1.ListCount = 0 Then
List1.AddItem "SEM CTOS ON-LINE"
End If
End Sub


Private Sub Form_Load()
On Error Resume Next
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Set MSNApi = New MessengerAPI.Messenger
End Sub

Private Sub buscacto(brList As ListBox, pStatus As MISTATUS)
Dim Contato As IMessengerContact
List1.Clear
For Each Contato In MSN.MyContacts
If Contato.Status = pStatus Then
brList.AddItem Contato.SigninName
End If
Next
End Sub

_____________ ele pega os meus ctos dos MSN e salva em uma listbox estou tendo dificuldades de fazelo enviar uma msg já pré-definida para todos os contatos que foram pegos dentro da LISTBOX, tentei também armazenar eses contatos em uma variavel do tipo "IMessengerContacts" (não sei se seria o certo). também não funciona.. ___________-

Private Sub command1_click()
Set MsnWindow = MSN.InstantMessage(  "não CONSIGO DEFINIR UMA VARIAVEL PARA GRAVAR OS CONTATOS DELE E COLOCAR AKI"        ) ' opens window
SendKeys "aki iria a mensagem" 
SendKeys "{ENTER}"
SendKeys "{ENTER}"
End Sub

SE COLOCO UM ENDEREÇO DE E-MAIL ENVIA NORMALMENTE A MENSAGEM, ATÉ MESMO SE A PESSOA NÃO FOR ADICIONADA NOS MEUS CONTATOS.

quem souber algo que passa estar fazendo...

ADD - fredsantana@MSN.com

[Graymalkin]

O que você tem que passar para o método InstantMessage()?

Graymalkin

[fafadinhu]

O que você tem que passar para o método InstantMessage()?

Graymalkin

o que estou tentando necessariamente fazer éh um programa que enviaria uma mensagem a todos os meus contatos de uma so vez....

eu teria que passar para ele o endereço de e-mail do meu cto..

isso que num consigo, armazer os endereço em uma váriavel e passar para ele..

[Graymalkin]

Eu não tenho esta biblioteca do MSN aqui, mas creio que para o método InstantMessage() você deveria passar um objeto IMessengerContact. Mas, você pode saber isso através daquele balãozinho amarelo que aparece com a assinatura da função.

Abraços,

Graymalkin

[fafadinhu]

Eu não tenho esta biblioteca do MSN aqui, mas creio que para o método InstantMessage() você deveria passar um objeto IMessengerContact. Mas, você pode saber isso através daquele balãozinho amarelo que aparece com a assinatura da função.

Abraços,

Graymalkin

caso queira te mando o "PROJETO" éh só me dar ADD, a biblioteca do MSN já vem junto ao VB,

Project -> Preferences -> Messenger API type Libray

só copiar o codigo e Add, os botões de comando e uma ListBox

qualquer coisa me ADD

[Graymalkin]

Então, é isso mesmo. Em MSN.MyContacts você tem todos os seus contatos e pode pegar qualquer um (ou todos) e passá-los para o método InstantMessage(). Você não vai poder obtê-los a partir da listbox porque ela está guardando somente uma string, e não o objeto todo. Experimente utilizar o método InstantMessage() dentro daquele loop que você fez para listar os contatos.

Abraços,

Graymalkin

[fafadinhu]

vlw