Table.EndOfTable property (Outlook)

  • Artikel

Gibt einen Wert vom Typ Boolean, der angibt, ob die aktuelle Zeile nach der letzten Zeile im Table -Objekt positioniert wird. Schreibgeschützt.

Syntax

Ausdruck. EndOfTable

Ausdruck Eine Variable, die ein Table-Objekt darstellt.

HinwBemerkungeneise

Wenn Sie eine Tabelle mit Folder.GetTable, Search.GetTable oder Table.Restrict öffnen, hängt der Wert der EndOfTable die Anzahl der Zeilen in der Tabelle. Wenn keine Zeilen vorhanden sind, gibt EndOfTableTruezurück. Wenn Zeilen vorhanden sind, EndOfTable "false" zurückgibt, bis der Cursor nach der letzten Zeile in der Tablebewegt wird.

Die Tabelle verfügt über zwei virtuellen Null Zeilen, eine vor der ersten Zeile und eine nach der letzten Zeile in der Tabelle. Jeder Aufruf von Table.GetNextRow verschiebt die aktuelle Zeile in die nächste Zeile in der Tabelle und gibt ein Row -Objekt, das die aktuelle Zeile darstellt.

EndOfTable -Eigenschaft gibt True zurück, wenn die aktuelle Zeile nach der letzten Zeile und False, ist wenn die aktuelle Zeile im oder vor der letzten Zeile befindet.

Beispiel

Im folgenden Codebeispiel weist einen Jet-Filter auf Elemente im Posteingang zu einer Tabelle mit Elementen abzurufen, die größer als 1 November 2005 LastModificationTime haben. Anschließend wird die EndOfTable -Eigenschaft zum Auflisten der Elemente in der Tabelle und die Werte der Standardeigenschaften für jedes Element in der Tabelle zu drucken.

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 November 1, 2005 
 Filter = "[LastModificationTime] > '11/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("EntryID")) 
 Debug.Print (oRow("Subject")) 
 Debug.Print (oRow("CreationTime")) 
 Debug.Print (oRow("LastModificationTime")) 
 Debug.Print (oRow("MessageClass")) 
 Loop 
End Sub

Siehe auch

Table-Objekt

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.