[VBA-O] Lister les dossiers dans 'boite de récéption' [Résolu]

[Elstak]

Hello,

Voilà j'ai réussi à voir le nombre de mails dans un dossier créé dans la boite de récéption mais ceci en passant directement le nom par le code. J'aimerais que l'utilisateur puisse choisir le dossier parmis une liste (dans un userform). Voici le code qui me permet de trouver le nombre de mails :

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
Sub Testcmd()

    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
    Dim FileName As String
    Dim i As Integer
    Dim DossierConteneur As Outlook.MAPIFolder


    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
    Set DossierConteneur = Inbox.Folders("Nom Dossier")


    If DossierConteneur.Items.Count = 0 Then
        MsgBox "Boite de récéption vide", vbInformation
        
    Else
        MsgBox "Il y a " & DossierConteneur.Items.Count & " message(s) trouvé(s)" _
        & " dans la  boite de récéption"
    End If
    
End Sub

Je cherche à remplacer la partie rouge par la valeur de ma liste (où l'utilisateur aura choisi le dossier)

Merci d'avance

[Elstak]

Hop,

en fait ca se fait simplement !

Si ca interesse quelqu'un...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
 
    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
 
    Set ns = GetNamespace("MAPI")
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 
    'rafraichir la liste des dossiers dans boite de récéption
    For i = 1 To Inbox.Folders.Count
        Me.SelectionnerDossier.AddItem Inbox.Folders(i).Name
    Next
End Sub