Partager via

Ajouter un dossier personnalisé à un groupe et l’afficher en mode superposition par défaut

  • Article

Vous pouvez ajouter des dossiers de navigation personnalisés à un groupe de navigation 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é.

Si le dossier de navigation personnalisé est associé à un dossier calendrier, vous pouvez également utiliser la propriété IsSideBySide de l’objet NavigationFolder pour déterminer si le contenu du dossier de navigation personnalisé est affiché en mode côte à côte ou en mode superposition.

Cet exemple crée un dossier Calendrier pour les événements de la société et ajoute un dossier de navigation personnalisé pour le nouveau dossier, en configurant le dossier de navigation personnalisé afin qu'il soit affiché par défaut en mode Chevauchement.

Il permet d'effectuer les actions suivantes :

  1. L’exemple obtient une référence d’objet Folder pour le dossier Calendar 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é « Company Events », qui représente le nouveau dossier calendrier, dans la collection Folders du dossier Calendrier par défaut.

  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 CalendarModule .

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

  5. Il 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.

  6. L’exemple définit ensuite la propriété CurrentModule de l’objet NavigationPane sur la référence de l’objet CalendarModule pour s’assurer que le module de navigation Calendrier est actuellement affiché dans le volet de navigation.

  7. Enfin, l'exemple configure le dossier de navigation :

    • L’exemple définit la propriété IsSelected sur True pour l’afficher dans l’explorateur actif.
  • L'exemple définit la propriété IsSideBySide sur la valeur False pour l'afficher par défaut en mode Chevauchement.
Private Sub CreateCompanyEventsFolder() 
 Dim objNamespace As NameSpace 
 Dim objCalendar As Folder 
 Dim objFolder As Folder 
 
 Dim objPane As NavigationPane 
 Dim objModule As CalendarModule 
 Dim objGroup As NavigationGroup 
 Dim objNavFolder As NavigationFolder 
 
 On Error GoTo ErrRoutine 
 
 ' First, retrieve the default calendar folder. 
 Set objNamespace = Application.GetNamespace("MAPI") 
 Set objCalendar = objNamespace.GetDefaultFolder(olFolderCalendar) 
 
 ' Create a new calendar folder named "Company Events". 
 Set objFolder = objCalendar.Folders.Add("Company Events", olFolderCalendar) 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' Get the calendar module from the Navigation Pane. 
 Set objModule = objPane.Modules.GetNavigationModule(olModuleCalendar) 
 
 ' Get the "My Calendars" navigation group from the 
 ' calendar module. 
 With objModule.NavigationGroups 
 Set objGroup = .GetDefaultNavigationGroup(olMyFoldersGroup) 
 End With 
 
 ' Add a new navigation folder for the "Company Events" 
 ' folder in the "My Calendars" navigation group. 
 Set objNavFolder = objGroup.NavigationFolders.Add(objFolder) 
 
 ' Set the navigation folder to be displayed in overlay mode 
 ' by default. The IsSelected property can't be set to True 
 ' unless the CalendarModule object is the current module 
 ' displayed in the Navigation Pane. 
 Set objPane.CurrentModule = objModule 
 objNavFolder.IsSelected = True 
 objNavFolder.IsSideBySide = False 
 
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, _ 
 "CreateCompanyEventsFolder" 
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.