Discussion :

[Gerard_tlse]

Bonjour,

je cherche comment faire une macro qui compte les messages non lu de mes 5 boites à lettre (perso, travail, association, etc)

j'arrive à compter le nb de messages dans ma boite par défaut mais je n'arrive pas a boucler sir l'ensemble des dossiers input de mes boite email.

Merci d'avance pour votre aide.

cordialement

[joe.levrai]

Bonjour,

voici deux méthodes pour parcourir l'ensemble des boites mails rattachées à ton compte :

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
Sub NomDeToutesLesBoites()
 
    Dim OlApp As Outlook.Application
    Dim OlNmSpace As Outlook.NameSpace
    Dim BoiteMail As Outlook.MAPIFolder
 
    Set OlApp = CreateObject("Outlook.Application")
    Set OlNmSpace = OlApp.GetNamespace("MAPI")
 
    For Each BoiteMail In OlNmSpace.Folders
 
        Debug.Print BoiteMail.Name
 
    Next BoiteMail
 
End Sub

Celui-ci est directement inspiré d'un code que m'a proposé Oliv- dans un récent sujet de ce forum

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
Sub ToutesLesBoitesMails()
 
    Dim App As Outlook.Application
    Dim MyStores As Stores
    Dim MyStore As Store
 
    Set App = Outlook.Application
    Set MyStores = App.Session.Stores
 
    For Each MyStore In MyStores
        Debug.Print MyStore.DisplayName
    Next MyStore
 
    Set MyStores = Nothing
    Set App = Nothing
 
End Sub

[Gerard_tlse]

Merci Joe !

Rapide et efficace ! T un chef !