Discussion :

[ezaibus]

Bonjour,

Je souhaite personnaliser mon ruban et créer un raccourci vers un dossier de recherche. Cependant, je ne veux pas ce raccourci dans les favoris, je le veux dans le ruban.
Je n'ai pas trouvé de solution avec une macro.

Avez-vous une idée svp ?

Merci

[Oliv-]

Bonjour,

A adapter au nom du dossier

Code :

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

1
2
3
4
5
6
Sub ChangeCurrentFolder()
 
    Dim myNamespace As Outlook.NameSpace
    Set myNamespace = Application.GetNamespace("MAPI")
    Set Application.ActiveExplorer.CurrentFolder = _
    myNamespace.GetDefaultFolder(olFolderInbox).Parent.Store.GetSearchFolders.Item("tout")