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
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.