Propiedad MailItem.GetInspector (Outlook)
Devuelve un objeto Inspector que representa un inspector inicializado para contener el elemento especificado. Solo lectura.
Sintaxis
expresión. GetInspector
expresión Variable que representa un objeto MailItem.
Comentarios
Esta propiedad es útil para devolver un objeto Inspector en el que se va a mostrar el elemento, en lugar de utilizar el método Application.ActiveInspector y establecer la propiedad Inspector.CurrentItem. Si ya existe un objeto Inspector para el elemento, la propiedad GetInspector devolverá ese objeto Inspector en lugar de crear uno nuevo.
Ejemplo:
En este ejemplo de Visual Basic para Aplicaciones (VBA) se muestra una función InsertBodyTextInWordEditor que crea un elemento de correo, le asigna un título y agrega texto para el cuerpo. La función establece la propiedad Subject para asignar el título "Prueba...". A continuación, llama al método Display para abrir el elemento de correo en un inspector. Para insertar texto en un editor de texto como el cuerpo del elemento de correo, la función utiliza el objeto de documento y el intervalo de objetos en el modelo de objetos de Word. La función utiliza la propiedad del elemento GetInspector para obtener el objeto Inspector existente y, a continuación, utiliza la propiedad Inspector.WordEditor para obtener un objeto Word.Document para el elemento. Uso del objeto Word.Document, la función obtiene acceso al objeto Word.Range e inserta texto en el cuerpo del elemento.
Dado que este ejemplo obtiene acceso al modelo de objetos de Word, primero debe agregar una referencia a la biblioteca de objetos de Microsoft Word para compilar el ejemplo satisfactoriamente.
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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.