Discussion :

[asirier]

Bonjour,

J'essai d'extraire les adresses qui ne font pas parti de liste de diffusion, jusque la pas de soucis.
Le problème est que dans la liste des adresses que je récupère, je ne récupère pas seulement les adresses public mais aussi les adresses que j'ai utilisées mais qui sont pas public. Comment faire pour uniquement ciblé ceux du carnet public.

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
Dim MonOutlook As New Outlook.Application
Dim MaSession, avec_membre, pos_agent
Set MaSession = MonOutlook.Session
 
Dim ligne, liste, Entry, donnees, i, j, liste_diffusion
Dim liste_detaille As String
Dim test As Long
Dim nb_agent
Dim nb_ident_agent
Dim nb_liste
 
Cells.ClearContents
Cells(1, 1).Value = "Liste"
Cells(1, 2).Value = "Addresse"
Cells(1, 3).Value = "Nom"
Cells(1, 4).Value = "Type"
ligne = 2
 
 
For Each liste In MaSession.AddressLists
 
    For Each Entry In liste.AddressEntries
 
        liste_diffusion = True
        test = Entry.Members.Count
 
        If liste_diffusion = True Then
 
           ' En presence d'une liste de diffusion
 
           Cells(ligne, 1).Select
           Cells(ligne, 1).Value = liste.Name
           Cells(ligne, 2).Value = Entry.Address
           Cells(ligne, 3).Value = Entry.Name
 
.....

Merci d'avance pour vos lumières.

[EngueEngue]

Regarde les proprietes class et type... Il te suffira de mettre un If pour selectionner celles qui t'interessent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
        Cells(ligne, 1).Value = liste.Name
           Cells(ligne, 2).Value = Entry.Address
           Cells(ligne, 3).Value = Entry.Name
           Cells(ligne, 4).Value = Entry.class
           Cells(ligne, 5).Value = Entry.type