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
..... |
Partager