Método Table.Sort (Outlook)
Classifica as linhas da Tabela pela propriedade especificada em SortProperty e redefine a linha atual para pouco antes da primeira linha na Tabela.
Sintaxe
expressão. Classificar (SortProperty, Descending)
Expressão Uma variável que representa um objeto Table .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Sortproperty | Obrigatório | String | Especifica a propriedade a ser usada para classificar as linhas da tabela. |
| Descending | Opcional | Boolean | Se deseja classificar a tabela em ordem decrescente. |
Comentários
SortProperty pode ser qualquer propriedade interna explícita ou personalizada, com exceção de propriedades binárias ou com valores múltiplos. A propriedade deve ser indicada por seu nome explícito de cadeia de caracteres; ela não pode ser indicada por namespace. Para obter mais informações sobre como especificar propriedades de classificação, consulte Classificação de itens em uma pasta.
Classificar a tabela é como chamar um método MoveToStart. O cursor será posicionado no início do objeto Table.
Se Table.Sort e Table.Restrict forem chamados, os itens filtrados no novo objeto Table serão classificados pelos mesmos parâmetros SortProperty e SortOrder.
Table. Sort só oferece suporte a classificação em uma única coluna.
Exemplo
O exemplo de código a seguir mostra como classificar as linhas em uma tabela com base na propriedade ReceivedTime e imprime o valor da propriedade subject MAPI normalizado para cada linha na tabela classificada.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.