Adicionar uma pasta personalizada a um grupo e exibi-la no modo de sobreposição por padrão

Você pode adicionar pastas de navegação personalizadas a um grupo de navegação no Microsoft Outlook usando o método Add da coleção NavigationFolders para um objeto NavigationGroup . O método Add aceita uma referência de objeto Folder , à qual a pasta de navegação personalizada está associada.

Se a pasta de navegação personalizada estiver associada a uma pasta de calendário, você também poderá usar a propriedade IsSideBySide do objeto NavigationFolder para determinar se o conteúdo da pasta de navegação personalizada é exibido lado a lado ou no modo de sobreposição.

Este exemplo cria uma nova pasta de calendário para os eventos da empresa e adiciona uma pasta de navegação personalizada para a nova pasta, configurando essa pasta de navegação para que ela seja exibida por padrão no modo de sobreposição.

O exemplo executa as seguintes ações:

1. O exemplo obtém uma referência de objeto Folder para a pasta padrão Calendário para o usuário atual, usando o método GetDefaultFolder do objeto NameSpace .

2. Em seguida, ele cria um novo objeto Folder chamado "Eventos da Empresa", representando a nova pasta de calendário, na coleção Pastas da pasta padrão Calendário .

3. Em seguida, o exemplo obtém uma referência ao objeto NavigationPane para o explorador ativo e usa o método GetNavigationModule da coleção NavigationModules para obter uma referência de objeto CalendarModule .

4. Em seguida, ele usa o método GetDefaultNavigationGroup da coleção NavigationGroups para o CalendarModule para obter uma referência de objeto NavigationGroup ao grupo de navegação My Calendars .

5. Além disso, ele adiciona um novo objeto NavigationFolder, com base no objeto Folder criado anteriormente pelo exemplo, ao grupo de navegação usando o método Add do conjunto NavigationGroups para aquele grupo de navegação.

6. O exemplo então define a propriedade CurrentModule do objeto NavigationPane como a referência de objeto CalendarModule , para garantir que o módulo de navegação Calendar seja exibido atualmente no Painel de Navegação.

7. Finalmente, o exemplo configura a pasta de navegação:

   • O exemplo define a propriedade IsSelected como True para exibi-la no explorador ativo.

• O exemplo define a propriedade IsSideBySide como False para exibi-la por padrão no modo de sobreposição.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.