Método Table.Sort (Outlook)
Ordena las filas de table por la propiedad especificada en SortProperty y restablece la fila actual a justo antes de la primera fila de la tabla.
Sintaxis
expresión. Sort (SortProperty, Descending)
Expresión Variable que representa un objeto Table .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| SortProperty | Obligatorio | String | Especifica la propiedad que se va a usar para ordenar las filas de la tabla. |
| Descending | Opcional | Boolean | Si desea ordenar la tabla en orden descendente. |
Comentarios
SortProperty puede ser cualquier propiedad integrada explícita o propiedad personalizada, a excepción de las propiedades binarias y propiedades multivalor. A la propiedad debe hacerse referencia mediante su nombre de cadena explícito y no mediante un espacio de nombres. Para obtener más información sobre cómo especificar propiedades de ordenación, vea Ordenar elementos en una carpeta.
Ordenar la tabla equivale a llamar a un método MoveToStart. El cursor se colocará al principio del objeto Table.
Si se llama a Table.Sort y, a continuación, a Table.Restrict, los elementos filtrados del nuevo objeto Table se ordenarán por los mismos valores de SortProperty y SortOrder.
Table.Sort sólo admite la ordenación en una sola columna.
Ejemplo:
El ejemplo de código siguiente muestra cómo ordenar las filas de una tabla basándose en la propiedad ReceivedTime e imprime el valor de la propiedad de asunto normalizado MAPI de cada fila de la tabla ordenada.
Sub SortTableByReceivedTime()
Dim oT As Outlook.Table
Dim oRow As Outlook.Row
Set oT = Session.GetDefaultFolder(olFolderInbox).GetTable
'Add normalized subject (subject without RE:, FW: and other prefixes)to the column set
oT.Columns.Add ("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
'Sort by ReceivedTime in descending order
oT.Sort "[ReceivedTime]", True
Do Until oT.EndOfTable
Set oRow = oT.GetNextRow
'Print the normalized subject of each row
Debug.Print oRow("http://schemas.microsoft.com/mapi/proptag/0x0E1D001E")
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.