MailItem.GetInspector 属性 (Outlook)

返回一个表示初始化以包含指定的项的检查器 检查器 对象。 此为只读属性。

语法

expression。 GetInspector

expression 表示 MailItem 对象的变量。

备注

此属性可用于返回要显示的项，而不是使用 Application.ActiveInspector 方法和设置 Inspector.CurrentItem 属性 检查器 对象。 如果 检查器 对象已存在的项， GetInspector 属性将返回而不是创建一个新的 检查器 对象。

示例

此Visual Basic for Applications (VBA) 示例演示了一个函数，该函数InsertBodyTextInWordEditor创建邮件项，为其分配标题并为正文添加文本。 该函数设置 Subject 属性来指定标题"测试..."。 然后，它调用要在检查器中打开该邮件项的 显示 方法。 若要在 Word 编辑器以正文的邮件项目，该函数使用 Word 对象模型中对象的 文档 对象和 范围 中插入文本。 该函数使用项的 GetInspector 属性来获取现有的 检查 对象，并再使用 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

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。