les contacts mails avec dotmsn
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!!!
Code:
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 |
merci
