qui pourra s'il vous plait m'aider à voir plus claire dans ma procedure pour importer les contacts msn avec Dotmsn.dll
la connexion se fait, les contacts ne s'affiche pas!!!
merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Sub AfficherContact() AddHandler MSN.ConversationCreated, AddressOf MSNConversationCreatedhandler AddHandler MSN.Nameserver.SignedIn, AddressOf Signed_In AddHandler MSN.ConversationCreated, AddressOf Me.ConversationCreated AddHandler MSN.Nameserver.AuthenticationError, AddressOf Me.Authenticationerror AddHandler MSN.Nameserver.ServerErrorReceived, AddressOf Me.ServerErrorReceived MSN.Credentials.ClientID = "msmsgs@msnmsgr.com" MSN.Credentials.ClientCode = "Q1P7W2E4J9R8U3S5" MSN.Credentials.Account = "username@hotmail.com" MSN.Credentials.Password = "MotDePasse" MSN.Connect() System.Threading.Thread.Sleep(2000) If MSN.Connected Then Me.TextBox1.Text = " connecté!" Contacts = MSN.ContactList ContactList = Contacts.All For Each Con In MSN.ContactList.All lst.Add(Con.Name & " - " & Con.Mail) Next Else Me.TextBox1.Text = " Déconnecté!" End If Me.Label1.Text = lst.Count Me.GridView1.DataSource = lst MSN.Disconnect() End Sub
Partager