Compartilhar via

Enumerar pastas de pesquisa em todos os repositórios

  • Artigo

Este tópico descreve um exemplo de código que enumera as pastas de pesquisa em todos os repositórios da sessão atual.

  1. O exemplo de código começa obtendo todos os repositórios da sessão atual usando a propriedade NameSpace.Stores da sessão atual, Application.Session.

  2. Para cada repositório desta sessão, ele usa Store.GetSearchFolders para obter a coleção de pastas de pesquisa para esse repositório.

  3. Para cada conjunto de pastas de pesquisa, ele exibe o nome de cada pasta.

Comentários

Para executar o exemplo de código, coloque o código no módulo ThisOutlookSession interno. Execute o EnumerateSearchFoldersInStores procedimento:

Sub EnumerateSearchFoldersInStores() 
 Dim colStores As Outlook.Stores 
 Dim oStore As Outlook.Store 
 Dim oSearchFolders As Outlook.folders 
 Dim oFolder As Outlook.Folder 
 
 On Error Resume Next 
 Set colStores = Application.Session.Stores 
 For Each oStore In colStores 
 Set oSearchFolders = oStore.GetSearchFolders 
 For Each oFolder In oSearchFolders 
 Debug.Print (oFolder.FolderPath) 
 Next 
 Next 
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.