Table.Restrict, méthode (Outlook)
Applique un filtre aux lignes de la table et obtient un nouvel objet Table .
Syntaxe
expression. Restrict( _Filter_ )
Expression Variable qui représente un objet Table .
Parameters
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Filter | Obligatoire | String | Spécifie les critères des lignes dans l’objet Table . |
Valeur renvoyée
Objet Table retourné en appliquant Filter aux lignes de l’objet Table parent.
Remarques
Vous pouvez utiliser uniquement Table.Restrict pour appliquer un autre filtre à l’objet Table si l’objet parent de l’objet Table est un objet Folder. Si l’objet parent est un objet Search , Restrict renvoie une erreur.
Étant donné que le filtre est appliqué aux lignes de l’objet Table , cela équivaut à appliquer un filtre qui est un AND logique de Filter et tous les filtres précédents appliqués au même objet Table .
L'application du paramètre Filter correspond à une requête sur des propriétés spécifiées d'éléments qui sont représentés sous forme de lignes dans l'objet Table parent. Cette requête utilise soit la syntaxe Microsoft Jet, soit la syntaxe DAV Searching and Locating (DASL). Par exemple, le filtre Jet et le filtre DASL suivants spécifient le même critère pour les éléments avec une date et une heure de dernière modification (LastModificationTime) antérieures à 15h30 le 12 juin 2005 :
criteria = "[LastModificationTime] < '" & Format$("6/12/2005 3:30PM","General Date") & "'"criteria = "@SQL=" & Chr(34) & "DAV:getlastmodified" & Chr(34)
& " < '" & Format$("6/12/2005 3:30PM","General Date") & "'"
Pour plus d’informations sur la définition de filtres pour l’objet Table, voir Filtrage des éléments.
Si le paramètre Filter contient des propriétés personnalisées, ces propriétés doivent exister dans le dossier parent de l’objet Table afin que la restriction fonctionne correctement. Certaines propriétés ne sont pas prises en charge dans le filtre d’un objet Table, notamment les propriétés binaires, les propriétés calculées et le contenu du corps HTML ou RTF. Pour plus d’informations, voir Propriétés non prises en charge dans un objet ou un filtre Table.
Si le paramètre Filter est une chaîne vide, la méthode Restrict renvoie un objet Table identique à l'objet Table parent.
Exemple
L'exemple de code suivant montre comment appliquer un filtre Jet sur des éléments de la boîte de réception pour obtenir les éléments dont la date de dernière modification (LastModificationTime) est supérieure au 1er novembre 2005. Le code imprime ensuite les valeurs des propriétés par défaut de ces éléments dans la boîte de réception : EntryID, Subject, CreationTime, LastModificationTime et MessageClass.
Remarque
Étant donné que des éléments hétérogènes peuvent exister dans le même dossier Outlook, les éléments renvoyés en appliquant le filtre dans la boîte de réception peuvent être de types différents. En général, avant d'accéder aux propriétés qui ne figurent pas parmi les propriétés par défaut des éléments de la boîte de réception, vérifiez la classe (MessageClass) de l'élément.
Sub RestrictTable()
'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
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.