Objeto Columns (Outlook)
Representa una colección de objetos Column en un objeto Table.
Comentarios
El objeto Columns es compatible con la enumeración de objetos Column en el objeto de la colección de columnas. Se admite la interfaz COM, IEnumerable.
Ejemplo:
En el siguiente ejemplo de código se ilustra cómo obtener un objeto Table basándose en la propiedad LastModificationTime de los elementos de la Bandeja de entrada. También se muestra cómo quitar las columnas predeterminadas de la tabla, agregar columnas concretas e imprimir los valores de las propiedades correspondientes de estos elementos.
Sub RemoveAllAndAddColumns()
'Declarations
Dim Filter As String
Dim oRow As Outlook.Row
Dim oTable As Outlook.Table
Dim oFolder As Outlook.Folder
'Get a Folder object for the Inbox
Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox)
'Define Filter to obtain items last modified after May 1, 2005
Filter = "[LastModificationTime] > '5/1/2005'"
'Restrict with Filter
Set oTable = oFolder.GetTable(Filter)
'Remove all columns in the default column set
oTable.Columns.RemoveAll
'Specify desired properties
With oTable.Columns
.Add ("Subject")
.Add ("LastModificationTime")
'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace
.Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")
End With
'Enumerate the table using test for EndOfTable
Do Until (oTable.EndOfTable)
Set oRow = oTable.GetNextRow()
Debug.Print (oRow("Subject"))
Debug.Print (oRow("LastModificationTime"))
Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B"))
Loop
End Sub
Métodos
Nombre |
---|
Add |
Elemento |
Remove |
RemoveAll |
Propiedades
Nombre |
---|
Aplicación |
Class |
Count |
Parent |
Session |
Consulte también
Referencia del modelo de objetos de Outlook
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.