Adicionar uma pasta ao Grupo de Pastas Favoritas

Você pode adicionar uma pasta ao grupo de navegação Pastas Favoritas no Microsoft Outlook usando o método Adicionar 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.

Você pode recuperar uma referência de objeto NavigationGroup ao grupo de navegação padrão para um tipo de grupo de navegação especificado usando o método GetDefaultNavigationGroup do objeto NavigationGroups .

Este exemplo cria uma nova pasta de correio para itens importantes e adiciona uma pasta de navegação personalizada para a nova pasta no grupo de navegação Pastas Favoritas do módulo Correio.

Nota Se você tentar adicionar uma pasta específica da solução, criada para o módulo Soluções, à lista Pastas Favoritas, o Outlook gerará um erro.

O exemplo executa as seguintes ações:

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

2. Em seguida, ele cria um novo objeto Folder chamado "Itens Importantes", representando a nova pasta de email, na coleção Pastas da pasta padrão caixa de entrada .

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

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

5. Por fim, 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.

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

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.