Propriété Table.EndOfTable (Outlook)

Article
04/07/2023

Renvoie une valeur de type Boolean indiquant si la ligne active se trouve après la dernière ligne de l'objet Table. En lecture seule.

Syntaxe

expression. EndOfTable

Expression Variable qui représente un objet Table .

Remarques

Lorsque vous ouvrez un objet Table par l'intermédiaire de la méthode Folder.GetTable, Search.GetTable ou Table.Restrict, la valeur de la propriété EndOfTable est fonction du nombre de lignes que contient l'objet Table. S’il n’y a pas de lignes, EndOfTable renvoie la valeur True. S’il existe des lignes, EndOfTable retourne False jusqu’à ce que le curseur dépasse la dernière ligne de la table.

L'objet Table contient deux lignes virtuelles de valeur Null, l'une située avant la première ligne et l'autre située après la dernière ligne de l'objet Table. Chaque appel à Table.GetNextRow déplace la ligne actuelle vers la ligne suivante dans la table et retourne un objet Row qui représente la ligne actuelle.

La propriété EndOfTable renvoie True si la ligne active se trouve après la dernière ligne et False si la ligne active se trouve au niveau de la dernière ligne ou avant celle-ci.

Exemple

Dans l'exemple de code suivant, un filtre Jet est appliqué aux éléments de la Boîte de réception pour obtenir un objet Table contenant des éléments dont la propriété LastModificationTime indique une date postérieure au 1er novembre 2005. La propriété EndOfTable est ensuite utilisée pour énumérer les éléments contenus dans l'objet Table et la valeur des propriétés par défaut est imprimée pour chaque élément de l'objet Table.

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

Voir aussi

Objet Table

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via