共用方式為

Outlook) (MailItem.GetInspector 屬性

  • 發行項

會傳回 Inspector 物件，代表初始化為包含指定專案的 Inspector。 唯讀。

語法

expression。 GetInspector

表達 代表 MailItem 物件的 變數。

註解

這個屬性適用于傳回要在其中顯示專案的 Inspector 物件，而不是使用 Application.ActiveInspector 方法和設定 Inspector.CurrentItem 屬性。 如果項目已有 Inspector 物件，GetInspector 屬性就會傳回該 Inspector 物件，而非建立新物件。

範例

這個 Visual Basic for Applications (VBA) 範例會示範建立訊息項目的函 InsertBodyTextInWordEditor 式、為它指派標題，以及新增本文的文字。 函式會設定 Subject 屬性，以指派標題 「Testing...」。 然後，它會呼叫 Display 方法，以在偵測器中開啟訊息項目。 若要在 Word 編輯器中插入文字做為訊息項目的本文，函式會在 Word 物件模型中使用 Document 物件和 Range 物件。 函數使用項目的 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

另請參閱

MailItem 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。