Método Folders.Add (Outlook)

Artigo
04/07/2023

Cria uma nova pasta na coleção Folders.

Sintaxe

expressão. Adicionar (Nome, Tipo)

Expressão Uma variável que representa um objeto Folders .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Name	Obrigatório	String	O nome de exibição da nova pasta.
Type	Opcional	Long	O tipo de pasta do Outlook para a nova pasta. Se o tipo de pasta não for especificado, a nova pasta será definido para o mesmo tipo da pasta na qual ele foi criado. Pode ser uma das seguintes constantes OlDefaultFolders: olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes ou olFolderTasks. As constantes olFolderConflicts, olFolderDeletedItems, olFolderJunk, olFolderLocalFailures, olFolderManagedEmail, olFolderOutbox, olFolderRssSubscriptions, olFolderSentMail, olFolderServerFailures, olFolderSyncIssues, olFolderToDo e olPublicFoldersAllPublicFolders não podem ser especificados para este argumento.

Valor de retorno

Um objeto Folder que representa a nova pasta.

Exemplo

Este exemplo do VBA usa o método Add para adicionar a nova pasta denominada "My Contacts" à pasta de contatos atual (padrão).

Sub AddContactsFolder() 
 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 Contacts") 
End Sub

Este exemplo de VBA usa o método Add para adicionar três novas pastas na pasta Tarefas. A primeira pasta, Pasta notas, conterá itens de observação. A segunda pasta, Pasta contatos, conterá itens de contato. A terceira pasta, Pasta Pública, será uma pasta pública. Se as pastas já existirem, uma caixa de mensagem informará ao usuário.

Sub AddFolders() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNotesFolder As Outlook.Folder 
 Dim myContactsFolder As Outlook.Folder 
 Dim myPublicFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 On Error GoTo ErrorHandler 
 Set myNotesFolder = myFolder.Folders.Add("Notes Folder", olFolderNotes) 
 Set myContactsFolder = myFolder.Folders.Add("Contacts Folder", olFolderContacts) 
 Set myPublicFolder = myFolder.Folders.Add("Public Folder", olPublicFoldersAllPublicFolders) 
 Exit Sub 
ErrorHandler: 
 MsgBox "This folder already exists!" 
 Resume Next 
End Sub

Confira também

Objeto Folders

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.

Partilhar via