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
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.