Table.Sort-Methode (Outlook)
Sortiert die Zeilen der Tabelle nach der in SortProperty angegebenen Eigenschaft und setzt die aktuelle Zeile auf kurz vor der ersten Zeile in der Tabelle zurück.
Syntax
Ausdruck. Sort (SortProperty, Descending)
Ausdruck Eine Variable, die ein Table-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SortProperty | Erforderlich | String | Gibt die Eigenschaft zu verwenden, um die Zeilen der Tabelle zu sortieren. |
| Descending | Optional | Boolean | Ob die Tabelle in absteigender Reihenfolge zu sortieren. |
HinwBemerkungeneise
SortProperty kann jede explizite integrierte Eigenschaft oder benutzerdefinierte Eigenschaft sein, mit Ausnahme von binären und mehrwertigen Eigenschaften. Auf die Eigenschaft muss durch ihren expliziten Zeichenfolgennamen verwiesen werden. Es kann nicht vom Namespace darauf verwiesen werden. Weitere Informationen zum Angeben von Sortiereigenschaften finden Sie unter Sortieren von Elementen in einem Ordner.
Das Sortieren der Tabelle entspricht dem Aufrufen einer MoveToStart -Methode. Der Cursor wird am Anfang der Tabelle positioniert.
Wenn Table.Sort und dann Table.Restrict aufgerufen werden, werden die gefilterten Elemente im neuen Table-Objekt nach der gleichen SortProperty und SortOrder sortiert.
Table.Sort unterstützt nur das Sortieren nach einer einzigen Spalte.
Beispiel
Im folgenden Codebeispiel veranschaulicht das Sortieren der Zeilen in einer Tabelle auf Basis der ReceivedTime -Eigenschaft, und es wird der Wert der Subject-Eigenschaft normalisiert MAPI für jede Zeile in der sortierten Tabelle gedruckt.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.