Row.Item, méthode (Outlook)
Obtient un Object qui représente la valeur de l’objet Row à la colonne spécifiée par Index.
expression. Élément (Index)
Expression Variable qui représente un objet Row .
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Index | Obligatoire | Variant | Valeur d’index de base 1 qui peut être un long représentant l’index de colonne pour la collection Columns ou une chaîne représentant le nom de la colonne. |
Variant qui représente la valeur d’une propriété (telle que spécifiée par Index ) d’un élément (tel que spécifié par la ligne parente).
La méthode Item est la méthode par défaut de l’objet Row, ce qui signifie qu’elle peut être utilisée de façon implicite. Les deux lignes de code suivantes accèdent toutes deux à la valeur de la propriété Subject au niveau de la ligne spécifiée dans une table :
Row.Item("Subject")
Row("Subject")
Si un objet Column a été ajouté à un objet Table avec un nom de propriété référençant un espace de noms, vous devez référencer l'objet Column dans la méthode Row.Item par le même espace de noms. Si vous utilisez une référence de nom intégré explicite dans Row.Item, vous obtenez une erreur.
L'exemple de code suivant montre comment obtenir un objet Table basé sur l'heure de dernière modification des éléments exprimée par LastModificationTime dans la boîte de réception. Ce code permet d'énumérer et d'imprimer ensuite les valeurs des propriétés par défaut de ces éléments. Étant donné que la méthode Item est la méthode par défaut de l’objet Row , elle utilise la méthode Item de manière implicite.
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 May 1, 2005
Filter = "[LastModificationTime] > '5/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("Subject"))
Debug.Print (oRow("LastModificationTime"))
Loop
End Sub
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.