Propiedad Folder.Folders (Outlook)
Devuelve las carpetas colección que representa todas las carpetas contenidas en la carpeta de especificado. Solo lectura.
Sintaxis
expresión. Folders
Expresión Variable que representa un objeto Folder .
Comentarios
El espacio de nombres objeto es la raíz de todas las carpetas para el espacio de nombres dado.
Ejemplo:
Este Visual Basic para Aplicaciones (VBA) se utiliza el Folders.Add Para agregar la nueva carpeta denominada "My Personal Contacts" a la carpeta contactos predeterminada.
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 ejemplo VBA utiliza el Folders.Add método para agregar dos nuevas carpetas en la carpeta tareas. La primera carpeta, "My Notes Folder", contendrá elementos de notas. La segunda carpeta, "My Contacts Folder", contendrá elementos de contacto. Si las carpetas ya existen, un cuadro de mensaje informará al usuario.
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
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.