MailItem.GetInspector-Eigenschaft (Outlook)

Gibt ein Inspector -Objekt, das einen Inspektor initialisiert wird, um das angegebene Element enthalten darstellt. Schreibgeschützt.

Syntax

Ausdruck. GetInspector

Ausdruck Eine Variable, die ein MailItem-Objekt darstellt.

Hinweise

Diese Eigenschaft ist nützlich, um die in der Anzeige des Elements, im Gegensatz zur Verwendung der Application.ActiveInspector -Methode und Festlegen der Inspector.CurrentItem -Eigenschaft ein Inspector -Objekt zurückzugeben. Wenn bereits ein Inspector -Objekt für das Element vorhanden ist, gibt die GetInspector -Eigenschaft, anstatt einen neuen Anwendungspool erstellen Inspector -Objekt zurück.

Beispiel

Dieses beispiel für Visual Basic for Applications (VBA) zeigt eine FunktionInsertBodyTextInWordEditor, die ein E-Mail-Element erstellt, ihm einen Titel zuweist und Text für den Text hinzufügt. Die Funktion legt die Subject -Eigenschaft so fest, dass der Titel "Testing..." zugewiesen wird. Danach ruft die Funktion die Display -Methode auf, um das E-Mail-Element in einem Inspektor zu öffnen. Zum Einfügen von Text als Nachrichtentext des E-Mail-Elements in einen Word-Editor verwendet die Funktion das Document -Objekt und das Range -Objekt im Word-Objektmodell. Die Funktion verwendet die GetInspector -Eigenschaft des Elements, um das vorhandene Inspector -Objekt abzurufen, und verwendet dann die Inspector.WordEditor -Eigenschaft zum Abrufen eines Word.Document -Objekts für das Element. Unter Verwendung des Word.Document -Objekts greift die Funktion dann auf das Word.Range -Objekt zu und fügt Nachrichtentext in das Element ein.

Da in diesem Beispiel auf das Word-Objektmodell zugegriffen wird, müssen Sie zuerst einen Verweis auf die Microsoft Word-Objektbibliothek hinzufügen, um das Beispiel erfolgreich kompilieren zu können.

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

Siehe auch

MailItem-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.