Propriedade Folder.Folders (Outlook)
Retorna as pastas coleção que representa todas as pastas contidas na pasta especificada. Somente leitura.
Sintaxe
expression. Folders
Expressão Uma variável que representa um objeto Folder .
Comentários
O NameSpace objeto é a raiz de todas as pastas do namespace especificado.
Exemplo
Este exemplo Visual Basic for Applications (VBA) usa o Folders método adicionar a nova pasta denominada "My Personal Contacts" à pasta padrão Contatos.
Sub CreatePersonalContacts()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNewFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set myNewFolder = myFolder.Folders.Add("My Personal Contacts")
End Sub
Este exemplo do VBA usa o Folders método adicionar duas novas pastas na pasta tarefas. A primeira pasta, "My Notes Folder", conterá itens de anotação. Segunda pasta, "My Contacts Folder", conterá itens de contato. Se as pastas já existirem, uma caixa de mensagem informará ao usuário.
Sub CreateFolders()
Dim myNamespace As Outlook.NameSpace
Dim myFolder As Outlook.Folder
Dim myNotesFolder As Outlook.Folder
Dim myContactFolder As Outlook.Folder
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks)
On Error GoTo ErrorHandler
Set myNotesFolder = _
myFolder.Folders.Add("My Notes Folder", olFolderNotes)
Set myContactFolder = _
myFolder.Folders.Add("My Contacts Folder", olFolderContacts)
Exit Sub
ErrorHandler:
MsgBox "Error creating the folder. The folder may already exist."
Resume Next
End Sub
Confira também
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.