Partager via

Ajouter un dossier au groupe Dossiers favoris

  • Article

Vous pouvez ajouter un dossier au groupe de navigation Dossiers favoris dans Microsoft Outlook à l’aide de la méthode Add de la collection NavigationFolders pour un objet NavigationGroup . La méthode Add accepte une référence d’objet Folder , à laquelle le dossier de navigation personnalisé est associé.

Vous pouvez récupérer une référence d’objet NavigationGroup au groupe de navigation par défaut pour un type de groupe de navigation spécifié à l’aide de la méthode GetDefaultNavigationGroup de l’objet NavigationGroups .

Cet exemple crée un dossier de courrier pour les éléments importants et ajoute un dossier de navigation personnalisé pour le nouveau dossier dans le groupe de navigation Dossiers favoris du module Courrier.

Note Si vous essayez d’ajouter un dossier spécifique à la solution, créé pour le module Solutions, à la liste Dossiers favoris, Outlook génère une erreur.

Il permet d'effectuer les actions suivantes :

  1. L’exemple obtient une référence d’objet Folder pour le dossier inbox par défaut de l’utilisateur actuel, à l’aide de la méthode GetDefaultFolder de l’objet NameSpace .

  2. Il crée ensuite un objet Folder nommé « Éléments importants », représentant le nouveau dossier de courrier, dans la collection Folders du dossier par défaut de la boîte de réception .

  3. L’exemple obtient ensuite une référence à l’objet NavigationPane pour l’explorateur actif et utilise la méthode GetNavigationModule de la collection NavigationModules pour obtenir une référence d’objet MailModule .

  4. Il utilise ensuite la méthode GetDefaultNavigationGroup de la collection NavigationGroups pour mailModule afin d’obtenir une référence d’objet NavigationGroup au groupe de navigation Dossiers favoris .

  5. Enfin, l'exemple ajoute un nouvel objet NavigationFolder à partir de l'objet Folder créé précédemment par l'exemple, dans le groupe de navigation à l'aide de la méthode Add de la collection NavigationGroups pour ce groupe de navigation.

Private Sub CreateImportantFavoritesFolder() 
    Dim objNamespace As NameSpace 
    Dim objInbox As Folder 
    Dim objFolder As Folder 
     
    Dim objPane As NavigationPane 
    Dim objModule As MailModule 
    Dim objGroup As NavigationGroup 
    Dim objNavFolder As NavigationFolder 
     
    On Error GoTo ErrRoutine 
     
    ' First, retrieve the default Inbox folder. 
    Set objNamespace = Application.GetNamespace("MAPI") 
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox) 
     
    ' Create a new mail folder named "Important Items". 
    Set objFolder = objInbox.Folders.Add("Important Items") 
         
    ' Get the NavigationPane object for the 
    ' currently displayed Explorer object. 
    Set objPane = Application.ActiveExplorer.NavigationPane 
     
    ' Get the mail module from the Navigation Pane. 
    Set objModule = objPane.Modules.GetNavigationModule(olModuleMail) 
     
    ' Get the "Favorite Folders" navigation group from the 
    ' mail module. 
    With objModule.NavigationGroups 
        Set objGroup = .GetDefaultNavigationGroup(olFavoriteFoldersGroup) 
    End With 
     
    ' Add a new navigation folder for the "Important Items" 
    ' folder in the "Favorite Folders" navigation group. 
    Set objNavFolder = objGroup.NavigationFolders.Add(objFolder) 
     
EndRoutine: 
    On Error GoTo 0 
    Set objNavFolder = Nothing 
    Set objFolder = Nothing 
    Set objGroup = Nothing 
    Set objModule = Nothing 
    Set objPane = Nothing 
    Set objNamespace = Nothing 
    Exit Sub 
 
ErrRoutine: 
    MsgBox Err.Number & " - " & Err.Description, _ 
        vbOKOnly Or vbCritical, _ 
        "CreateImportantFavoritesFolder" 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.