Método Inspectors.Add (Outlook)

Cria uma nova janela Inspector.

Sintaxe

expressão. Adicionar_Item_

Expressão Uma variável que representa um objeto Inspectors .

Parâmetros

Valor de retorno

Um objeto Inspector que representa uma nova janela do inspetor.

Comentários

Esse método é essencialmente idêntico à propriedade GetInspector de um item do Outlook, como MailItem.

Exemplo

Este Microsoft exemplo Visual Basic for Applications (VBA) solicita ao usuário um nome de empresa, usa o método Restrict para localizar todos os itens de contato da pasta Contatos com esse nome e exibe cada uma delas.

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

Confira também

Objeto Inspectors

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.