Метод Inspector.SetControlItemProperty (Outlook)

Статья
04/07/2023

Привязывает встроенное или настраиваемое свойство к элементу управления в инспекторе.

Синтаксис

выражение. SetControlItemProperty( _Control_ , _PropertyName_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Control	Обязательный	Object	Элемент управления, который будет привязан к свойству .
PropertyName	Обязательный	String	Имя свойства, которое будет привязано к элементу управления .

Замечания

Используйте этот метод для привязки явно встроенного или пользовательского свойства к элементу управления. Вы должны ссылаться на свойство по его строковом имени, например Subject, а не по пространству имен, например https://schemas.microsoft.com/mapi/proptag/0x0037001E.

Параметр PropertyName не учитывает регистр. Например, SetControlItemProperty интерпретирует аргумент CustomerId, чтобы он был таким же, как CustomerID , и привязывает указанный элемент управления к встроенному свойству ContactItem.CustomerID .

Для привязки свойства subject к элементу управления можно также использовать следующую строку кода myPage.Controls("bar").ItemProperty = "subject" . Однако обратите внимание, что ненадежный код, использующий этот код, вызовет предупреждение системы безопасности, если свойство защищено защитой объектной модели, например To, и клиентский компьютер работает под управлением Microsoft Office Outlook 2007 или более поздней версии, но не имеет должным образом настроенного антивирусного программного обеспечения. Используйте метод SetControlItemProperty , чтобы избежать предупреждений системы безопасности с доверенными приложениями.

Пример

Следующий код Visual Basic для приложений (VBA) добавляет настраиваемую страницу к элементу встречи, добавляет настраиваемый элемент управления textbox и привязывает этот элемент управления к свойству Subject.

Sub Example() 
 Dim myIns As Outlook.Inspector 
 Dim myAppt As Outlook.AppointmentItem 
 Dim ctrl As Object 
 Dim ctrls As Object 
 Dim myPages As Outlook.Pages 
 Dim myPage As Object 
 
 Set myAppt = Application.CreateItem(olAppointmentItem) 
 Set myIns = myAppt.GetInspector 
 
 Set myPages = myIns.ModifiedFormPages 
 Set myPage = myPages.Add("New Page") 
 myIns.ShowFormPage ("New Page") 
 Set ctrls = myPage.Controls 
 Set ctrl = ctrls.Add("Forms.TextBox.1") 
 
 myIns.SetControlItemProperty ctrl, "Subject" 
 
 myAppt.Display 
End Sub

См. также

Объект Inspector

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

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

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