Método Row.Item (Outlook)
Obtiene un Object que representa el valor del objeto Row en la columna especificada por Index.
Sintaxis
expresión. Elemento (índice)
Expresión Variable que representa un objeto Row .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Index | Obligatorio | Variant | Un valor de índice de base 1 que puede ser cualquiera de los dos un Long que representa el índice de columna de la colección Columns o una cadena que representa el nombre de la columna. |
Valor devuelto
Variant que representa el valor de una propiedad (según lo especificado por Index ) de un elemento (como especifica el elemento primario Row).
Comentarios
El método Item es el método predeterminado del objeto Row, lo que significa que el método puede usarse implícitamente. Las dos líneas de código siguientes tienen acceso al valor de la propiedad Subject en la fila especificada en una tabla :
Row.Item("Subject")
Row("Subject")
Si se ha agregado una columna a una tabla con un nombre de propiedad hace referencia a un espacio de nombres, debe hacer referencia a la columna en el método Row.Item con la misma referencia de espacio de nombres. Si usa una referencia de nombre integrada explícita en Row.Item, obtendrá un error.
Ejemplo:
El siguiente ejemplo de código muestra cómo obtener un objeto Table basándose en la propiedad LastModificationTime de los elementos de la Bandeja de entrada. A continuación, se enumeran y se imprimen los valores de un par de propiedades predeterminadas de estos elementos. Dado que el método Item es el método predeterminado del objeto Row, se usa el método Item de manera implícita.
Sub DemoTable()
'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)
'Enumerate the table using test for EndOfTable
Do Until (oTable.EndOfTable)
Set oRow = oTable.GetNextRow()
Debug.Print (oRow("Subject"))
Debug.Print (oRow("LastModificationTime"))
Loop
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.