Метод Inspectors.Add (Outlook)

Статья
04/07/2023

Создает новое окно инспектора.

Синтаксис

expression. Добавлять_Item_

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

Параметры

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

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

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

Замечания

Этот метод по существу идентичен свойству GetInspector элемента Outlook, например MailItem.

Пример

В этом примере Microsoft Visual Basic для приложений (VBA) пользователю предлагается ввести название компании, используется метод Restrict для поиска всех контактных элементов в папке Контакты с таким именем и отображается каждый из них.

Sub DisplayMyContacts() 
 
 Dim myFolder As Folder 
 
 Dim myItems As Items 
 
 Dim myRestrictItems As Items 
 
 Dim answer As String 
 
 Dim filter As String 
 
 Dim myInspector As Inspector 
 
 Dim x As Integer 
 
 
 
 answer = InputBox("Enter the company name") 
 
 Set myFolder = Application.GetNamespace("MAPI") _ 
 
 .GetDefaultFolder(olFolderContacts) 
 
 filter = "[MessageClass] = 'IPM.Contact' AND [CompanyName] = '" & answer & "'" 
 
 
 
 Set myItems = myFolder.Items 
 
 Set myRestrictItems = myItems.Restrict(filter) 
 
 For x = 1 To myRestrictItems.Count 
 
 Set myInspector = Application.Inspectors.Add(myRestrictItems.Item(x)) 
 
 myInspector.Display 
 
 Next x 
 
End Sub

См. также

Объект Inspectors

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

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

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