Discussion :

[ezaibus]

Bonjour,

Comme beaucoup de monde, je reçois de nombreux mails.
Je m'organise avec des dossiers de recherche. Cependant, je ne souhaite plus scroller pour trouver le bon dossier de recherche.
Dans l'idée, je voudrais faire un onglet spécifique dans le ruban avec des raccourcis vers les dossiers de recherche. Un bouton dans le ruban = un dossier de recherche.

Avez-vous une idée de comment faire ?

Merci

[Oliv-]

Bonjour,
Il faudra faire une macro, Un raccourci vers cette macro tu pourras mettre dans le ruban.

[ezaibus]

Une idée de macro ? Un lien ?

Merci de votre aide.

[Oliv-]

Code :

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

1
2
3
4
5
6
7
8
Sub ChangeCurrentFolder()
 
    Dim myNamespace As Outlook.NameSpace
    Set myNamespace = Application.GetNamespace("MAPI")
    Set Application.ActiveExplorer.CurrentFolder = _
    myNamespace.GetDefaultFolder(olFolderInbox).Parent.Store.GetSearchFolders.item("Avec pièces jointes")
 
    End Sub

[ezaibus]

Parfait !
Merci !