Propriedade MailItem.GetInspector (Outlook)

Retorna um objeto Inspector que representa um inspector inicializado para conter o item especificado. Somente leitura.

Sintaxe

expressão. GetInspector

expressão Uma variável que representa um objeto MailItem.

Comentários

Esta propriedade é útil para retornar um objeto Inspector no qual exibir o item, em vez de usar o método de Application.ActiveInspector e a configuração da propriedade CurrentItem. Se já existir um objeto Inspector para o item, a propriedade GetInspector retornará desse objeto Inspector, em vez de criar um novo.

Exemplo

Este exemplo de Visual Basic for Applications (VBA) mostra uma função InsertBodyTextInWordEditor que cria um item de email, atribui um título e adiciona texto para o corpo. A função define a propriedade Subject para atribuir o título "Testando …". Em seguida, ele chama o método de exibição para abrir o item de email em um Inspetor. Para inserir texto em uma palavra editor como o corpo do item de email, a função usa o objeto de documento e o objeto de intervalo no modelo de objeto do Word. A função usa a propriedade do item GetInspector para obter o objeto Inspector existente e, em seguida, usa a propriedade Inspector.WordEditor para obter um objeto do Word para o item. Usando o objeto do Word, a função acessa o objeto Word.Range e insere texto no corpo do item.

Desde que este exemplo acesse o modelo de objeto do Word, primeiro você deve adicionar uma referência ao Microsoft Word Object Library para compilar o exemplo com êxito.

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

Confira também

Objeto MailItem

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.