Discussion :

[ptibaz]

Bonjour ,

j'arrive a marquer comme non lu tous les mails d'un sous dossiers dans "boite de réception" en faisant

Code :

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

1
2
3
4
5
6
7
8
   Set MonNameSpace = Application.GetNamespace("MAPI")
    Set DossierDefautElementsRecus = MonNameSpace.GetDefaultFolder(olFolderInbox)
    Set MonDossierElementsRecus = DossierDefautElementsRecus.Folders("------------------------------- BE CONTACT")

       Set myItemsRecus = MonDossierElementsRecus.Items
For i = myItemsRecus.Count To 1 Step -1
        myItemsRecus(i).UnRead = True
    Next i

mais comment faire si le dossier est à la racine , au meme niveau que boite de reception?

merci pour votre aide

[carden752]

Bonjour,

En utilisant l'objet parent, voici un exemple à adapter qui affiche tous les dossiers au même niveau que la boite de réception.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub testdoss()
Dim mpfRoot As Outlook.MAPIFolder
    Dim mpf As Outlook.MAPIFolder
    Dim idx As Integer
 
    Set mpf = Application.Session.GetDefaultFolder(olFolderInbox)
    Set mpfRoot = mpf.Parent
    For idx = 1 To mpfRoot.Folders.Count
        MsgBox mpfRoot.Folders.item(idx).Name
    Next
End Sub

[ptibaz]

excellent!
merci beaucoup christophe

je cherche à lancer cette macro à chaque fois que je clique sur "envoyer/recevoir"

comment dois je faire stp ?

[carden752]

Bonjour,

Le bouton Envoyer/Recevoir est un objet de type CommandBarPopup et il n'existe pas de gestion de l'évènement Clic dessus. Peut-être est-ce possible via la propriété Onaction de définir une macro derrière mais je ne suis pas sûr qu'elle soit accessible sur tous les éléments standards.
En revanche, c'est beaucoup plus simple de le faire sur un bouton en personnalisant un peu la barre d'outil standard.

Voici un exemple à adapter lors du clic sur "Envoyer/Recevoir" Tout dans la commandeBarPopup "Envoyer/Recevoir".
32838 correspond à l'identifiant de la CommandBarPopup "Envoyer/Recevoir" et 1et le 1er contrôle soit "Envoyer/Recevoir Tout"

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
Public WithEvents colCBars         As Office.CommandBars
Public WithEvents cmdBold          As Office.CommandBarButton
 
Sub Initialize_CommandBarcontr()
 
Set cbrBar = Application.ActiveExplorer.CommandBars("Standard")
  With cbrBar
    Set cmdBold = .FindControl(, 32828).Controls(1)
    End With
End Sub
 
Private Sub cmdBold_Click(ByVal Ctrl As Office.CommandBarButton, _
                           CancelDefault As Boolean)
 MsgBox "ok"
End Sub