Compartir a través de


Método Views.Add (Outlook)

Crea una nueva vista en la colección Views.

Sintaxis

expresión. Agregar (Name, ViewType, SaveOption)

Expresión Variable que representa un objeto Views .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Name Obligatorio String Nombre de la nueva vista.
ViewType Obligatorio OlViewType Tipo de la nueva vista.
SaveOption Opcional OlViewSaveOption La opción save que especifica los permisos de la nueva vista:
  • olViewSaveOptionAllFoldersOfType Puede tener acceso a la vista en todas las carpetas de este tipo.
  • olViewSaveOptionThisFolderEveryOne Todos los usuarios de esta carpeta sólo puede obtener acceso a la vista.
  • olViewSaveOptionThisFolderOnlyMe Puede tener acceso a la vista en esta carpeta sólo por el usuario.

Valor devuelto

Objeto View que representa la nueva vista.

Comentarios

Si agrega una vista a una colección Views de una carpeta que no es la carpeta actual, primero debe guardar una copia del objeto de colección Views y, a continuación, agregar la vista a este objeto de colección, como se muestra en el ejemplo de código siguiente. Se trata de una solución para un problema existente que, de lo contrario, hará que se produzca un error en una llamada a View.Apply para que se produzca un error en la vista agregada.

Sub CalendarView() 
 Dim calView As Outlook.View 
 Dim vws As Views 
 
 Set Application.ActiveExplorer.CurrentFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 ' Current folder is Inbox; add a View to the Calendar folder which is not the current folder 
 ' Keep a copy of the object for the Views collection for the Calendar 
 Set vws = Application.Session.GetDefaultFolder(olFolderCalendar).Views 
 ' Add the View to this Views collection object 
 Set calView = vws.Add("New Calendar", olCalendarView, olViewSaveOptionThisFolderEveryone) 
 calView.Save 
 ' This Apply call will be fine 
 calView.Apply 
End Sub

Ejemplo:

En el siguiente ejemplo de Visual Basic para Aplicaciones (VBA) se crea una nueva vista denominada Nueva tabla y se almacena en una variable denominada objNewView.

Sub CreateView() 
 'Creates a new view 
 Dim objName As Outlook.NameSpace 
 Dim objViews As Outlook.Views 
 Dim objNewView As Outlook.View 
 
 Set objName = Application.GetNamespace("MAPI") 
 Set objViews = objName.GetDefaultFolder(olFolderInbox).Views 
 Set objNewView = objViews.Add(Name:="New Table", _ 
 ViewType:=olTableView, SaveOption:=olViewSaveOptionThisFolderEveryone) 
End Sub

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.