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