Utilisation API Google.contacts

Signaler
Messages postés
1
Date d'inscription
samedi 19 janvier 2008
Statut
Membre
Dernière intervention
8 mai 2012
-
Bonsoir
je voudrais récupérer la liste des contacts d'un compte gmail
La liste avec tous les détails nom, prénom, adresse, code postal, ville, les emails, les numéros de téléphones, etc...
j'ai écrit un bout de programme où je récupère déja les emails les numéros de téléphone
pour le reste, nom, prénom, adresse, code postal, ville, je ne sais pas comment faire
ci-dessous le programme en vs2005

Imports Google.GData.Contacts
Imports Google.GData.Client
Imports Google.GData.Extensions
'Imports GMailContacts
Imports Google.Contacts


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Provide Login Information

Dim rsLoginInfo As New RequestSettings("", "p.m.chevalier.87@gmail.com", "soline28")
rsLoginInfo.AutoPaging = True

' Fetch contacts and dislay them in ListBox

Dim cRequest As New ContactsRequest(rsLoginInfo)

Dim feedContacts As Feed(Of Contact) = cRequest.GetContacts

Dim Maximum As Integer

Maximum = feedContacts.TotalResults

Dim name As String

For Each contact As Contact In feedContacts.Entries

name = contact.Title

If name = "Chevalier Pierre et Christiane " Then

lstContacts.Items.Add(contact.Title)

For Each groupe As GroupMembership In contact.GroupMembership ' Email

lstContacts.Items.Add(" GROUPE " + groupe.Value)

Next

For Each emailId As EMail In contact.Emails ' Email

lstContacts.Items.Add(" EMAIL " + emailId.Label + " " + emailId.Address)

Next

For Each phone As PhoneNumber In contact.Phonenumbers ' Téléphone

lstContacts.Items.Add(" TELEPHONE " + phone.Label + " " + phone.Value)

Next

For Each adresse As PostalAddress In contact.PostalAddresses ' Adresse

lstContacts.Items.Add(" ADRESSE " + adresse.Label + " " + adresse.Value)

Next

For Each société As Organization In contact.Organizations ' Société

lstContacts.Items.Add(" SOCIETES " + société.Name)

Next

End If

Next

End Sub
End Class

si quelqu'un peut m'aider
Cordialement


Pierre