Свойство MailItem.GetInspector (Outlook)
Возвращает объект Inspector , представляющий инспектор, инициализированный для хранения указанного элемента. Только для чтения.
Синтаксис
выражение. GetInspector
Выражение Переменная, представляющая объект MailItem .
Замечания
Это свойство полезно для возврата объекта Inspector , в котором будет отображаться элемент, в отличие от использования метода Application.ActiveInspector и задания свойства Inspector.CurrentItem . Если объект Inspector уже существует для элемента, свойство GetInspector вернет этот объект Inspector вместо создания нового.
Пример
В этом примере Visual Basic для приложений (VBA) показана функцияInsertBodyTextInWordEditor, которая создает почтовый элемент, присваивает ему заголовок и добавляет текст для текста. Функция задает свойство Subject для назначения заголовка "Testing...". Затем он вызывает метод Display , чтобы открыть почтовый элемент в инспекторе. Чтобы вставить текст в редактор Word в качестве текста почтового элемента, функция использует объект Document и Объект Range в объектной модели Word. Функция использует свойство GetInspector элемента для получения существующего объекта Inspector , а затем использует свойство Inspector.WordEditor для получения объекта Word.Document для элемента. С помощью объекта Word.Document функция обращается к объекту Word.Range и вставляет текст в текст элемента.
Так как этот пример обращается к объектной модели Word, необходимо сначала добавить ссылку на библиотеку объектов Microsoft Word, чтобы успешно скомпилировать пример.
Sub InsertBodyTextInWordEditor()
Dim myItem As Outlook.MailItem
Dim myInspector As Outlook.Inspector
'You must add a reference to the Microsoft Word Object Library
'before this sample will compile
Dim wdDoc As Word.Document
Dim wdRange As Word.Range
On Error Resume Next
Set myItem = Application.CreateItem(olMailItem)
myItem.Subject = "Testing..."
myItem.Display
'GetInspector property returns Inspector
Set myInspector = myItem.GetInspector
'Obtain the Word.Document for the Inspector
Set wdDoc = myInspector.WordEditor
If Not (wdDoc Is Nothing) Then
'Use the Range object to insert text
Set wdRange = wdDoc.Range(0, wdDoc.Characters.Count)
wdRange.InsertAfter ("Hello world!")
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.