Метод Row.Item (Outlook)
Получает объект Object , представляющий значение для объекта Row в столбце, указанном индексом.
Синтаксис
expression. Item (Index)
Выражение Переменная, представляющая объект Row .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Индекс; | Обязательный | Variant | Значение индекса из 1, которое может быть длинным , представляющим индекс столбца для коллекции Columns , или строкой , представляющей имястолбца. |
Возвращаемое значение
Тип Variant, представляющий значение свойства (как указано в индексе ) элемента (как указано в родительской строке).
Замечания
Метод Item является методом по умолчанию объекта Row , что означает, что метод можно использовать неявно. Следующие две строки кода обращаются к значению свойства Subject в указанной строкетаблицы :
Row.Item("Subject")
Row("Subject")
Если столбец добавлен в таблицу с помощью имени свойства, ссылающегося на пространство имен, необходимо ссылаться на Столбец в методе Row.Item той же ссылкой на пространство имен. Если вы используете явную встроенную ссылку на имя в Row.Item, вы получите сообщение об ошибке.
Пример
В следующем примере кода показано, как получить объект Table на основе LastModificationTime элементов в папке "Входящие". Затем он перечисляет и выводит значения нескольких свойств по умолчанию этих элементов. Так как метод Item является методом по умолчанию объекта Row , он использует метод Item неявным способом.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.