Método Inspectors.Add (Outlook)
Crea una nueva ventana de inspector.
Sintaxis
expresión. Agregar_Item_
expresión Variable que representa un objeto Inspectors .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Item | Obligatorio | Object | Elemento que se mostrará en la ventana del inspector cuando se cree. |
Valor devuelto
Objeto Inspector que representa una nueva ventana del inspector.
Comentarios
Este método es esencialmente idéntico a la propiedad GetInspector de un elemento de Outlook, como MailItem.
Ejemplo
En este ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se pide al usuario un nombre de compañía, utiliza el método Restrict para buscar todos los elementos de la carpeta de contactos con ese nombre y muestra cada uno de ellos.
Sub DisplayMyContacts()
Dim myFolder As Folder
Dim myItems As Items
Dim myRestrictItems As Items
Dim answer As String
Dim filter As String
Dim myInspector As Inspector
Dim x As Integer
answer = InputBox("Enter the company name")
Set myFolder = Application.GetNamespace("MAPI") _
.GetDefaultFolder(olFolderContacts)
filter = "[MessageClass] = 'IPM.Contact' AND [CompanyName] = '" & answer & "'"
Set myItems = myFolder.Items
Set myRestrictItems = myItems.Restrict(filter)
For x = 1 To myRestrictItems.Count
Set myInspector = Application.Inspectors.Add(myRestrictItems.Item(x))
myInspector.Display
Next x
End Sub
Vea 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.