Método Folders.Add (Outlook)

Crea una nueva carpeta en la colección Folders.

Sintaxis

expresión. Agregar (Nombre, Tipo)

Expresión Variable que representa un objeto Folders .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Name	Obligatorio	String	Especifica el nombre completo de la nueva carpeta.
Type	Opcional	Long	El tipo de carpeta de Outlook para la nueva carpeta. Si no se especifica el tipo de carpeta, la nueva carpeta usará como valor predeterminado del mismo tipo que la carpeta en la que se creó. Puede ser una de las siguientes constantes OlDefaultFolders: olFolderCalendar, olFolderContacts, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes o olFolderTasks. Las constantes olFolderConflicts, olFolderDeletedItems, olFolderJunk, olFolderLocalFailures, olFolderManagedEmail, olFolderOutbox, olFolderRssSubscriptions, olFolderSentMail, olFolderServerFailures, olFolderSyncIssues, olFolderToDo y olPublicFoldersAllPublicFolders no pueden especificarse para este argumento.

Valor devuelto

Objeto Folder que representa la nueva carpeta.

Ejemplo:

En este ejemplo de VBA utiliza el método Add para agregar la nueva carpeta denominada "My Contacts" a la carpeta de contactos actual (valor predeterminado).

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

En este ejemplo de VBA se usa el método Add para agregar tres carpetas nuevas en la carpeta Tasks. La primera carpeta, Carpeta de notas, contendrá elementos de nota. La segunda carpeta, Carpeta de contactos, contendrá elementos de contacto. La tercera carpeta, Carpeta pública, será una carpeta pública. Si las carpetas ya existen, un cuadro de mensaje informará al usuario.

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

Consulte también

Objeto Folders

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.