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

Objeto MailItem

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.