Bonjour
je désire importer tous les champs saisies dans un contact gmail (nom prénom adresse postal emails téléphones groupes)
ci-dessous un bout de code qui me permet de récupérer le nom complet l'adresse complète les emails et les téléphones
comment faire pour récupérer le détail du nom (nom prénom) et le détail de l'adresse ainsi que d'autres champs comme la date de naissance

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
        Dim rsLoginInfo As New RequestSettings("", "xxx@gmail.com", "yyy")
        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 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
merci d'une réponse
Cordialement