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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。