Метод Columns.Add (Outlook)

Статья
04/07/2023

Добавляет столбец , указанный по имени , в коллекцию Columns и сбрасывает таблицу.

Синтаксис

expression. Add (Name)

Выражение Переменная, представляющая объект Columns .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Name	Обязательный	String	Имя свойства, добавляемого в виде столбца.

Возвращаемое значение

Объект Column , представляющий новый столбец.

Замечания

Columns.Add добавляет указанный столбец в конец коллекции Columns для таблицы и сбрасывает таблицу , перемещая текущую строку непосредственно перед первой строкой таблицы. Если Columns.Add возвращает ошибку, текущую строку не изменится.

Имя может быть явным встроенным именем свойства или именем свойства, на которое ссылается пространство имен. На него необходимо ссылаться в качестве имени в английском языковом стандарте. Дополнительные сведения о ссылке на свойства по пространству имен см. в разделе Ссылка на свойства по пространству имен.

При добавлении свойства, которое является явным встроенным свойством в объектной модели, например Contact.FirstName, необходимо указать Имя в качестве явного встроенного имени свойства на английском языке. Для некоторых типов свойств формат, используемый при добавлении этих свойств в качестве столбцов, влияет на то, как их значения выражаются в таблице. Дополнительные сведения о представлении значения свойства в таблице см. в разделе Факторы, влияющие на представление значения свойства в классах таблицы и представления.

При добавлении настраиваемого свойства в таблицу со ссылкой на свойство по пространству имен строки MAPI необходимо явно добавить тип свойства в конец ссылки на свойство. Например, чтобы добавить пользовательское свойство MyCustomProperty, которое имеет тип Строка Юникода, необходимо явно добавить тип 001f к ссылке, в http://schemas.microsoft.com/mapi/string/{HHHHHHHH-HHHH-HHHH-HHHH-HHHHHHHHHHHH}/MyCustomProperty/0x0000001fрезультате чего: , где {HHHHHHHH-HHHH-HHHH-HHHH-HHHHHHHHHHHH} представляет GUID пространства имен.

Некоторые свойства нельзя добавить в таблицу с помощью Columns.Add, включая двоичные свойства, вычисляемые свойства и содержимое текста HTML или RTF. Дополнительные сведения см. в разделе Неподдерживаемые свойства в объекте таблицы или фильтре таблиц.

Хотя Items.SetColumns можно использовать для упрощения кэширования определенных свойств для чрезвычайно быстрого доступа к этим свойствам коллекции Items , некоторые свойства ограничены setColumns. Так как эти ограничения не применяются к Columns.Add, объект Table является менее ограничительной альтернативой, чем Items.

Пример

В следующем примере кода показано, как получить объект Table на основе LastModificationTime элементов в папке "Входящие". Здесь также показано, как удалить столбцы таблицы по умолчанию, добавить определенные столбцы и распечатать значения соответствующих свойств этих элементов.

Sub AddColumns() 
 
 '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) 
 
 
 
 'Remove all columns in the default column set 
 
 oTable.Columns.RemoveAll 
 
 'Specify desired properties 
 
 With oTable.Columns 
 
 .Add ("Subject") 
 
 .Add ("LastModificationTime") 
 
 'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace 
 
 .Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B") 
 
 End With 
 
 
 
 'Enumerate the table using test for EndOfTable 
 
 Do Until (oTable.EndOfTable) 
 
 Set oRow = oTable.GetNextRow() 
 
 Debug.Print (oRow("Subject")) 
 
 Debug.Print (oRow("LastModificationTime")) 
 
 Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")) 
 
 Loop 
 
End Sub

См. также

Объект Columns

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через