Propriété MailItem.GetInspector (Outlook)

Renvoie un objet Inspector qui représente un inspecteur initialisé pour contenir l’élément spécifié. En lecture seule.

Syntaxe

expression. GetInspector

expression Variable qui représente un objet MailItem.

Remarques

Cette propriété est utile pour renvoyer un objet Inspector dans lequel afficher l’élément, par opposition à l’utilisation de la méthode Application.ActiveInspector et à la définition de la propriété Inspector.CurrentItem . S’il existe déjà un objet Inspector pour l’élément, la propriété GetInspector renvoie cet objet Inspector au lieu d’en créer un.

Exemple

Cet exemple Visual Basic pour Applications (VBA) montre une fonction InsertBodyTextInWordEditor qui crée un élément de courrier, lui attribue un titre et ajoute du texte pour le corps. La fonction définit la propriétéObjetpour attribuer le titre « Test... ». Il appelle ensuite la méthode Affichage pour ouvrir le message dans un inspecteur. Pour insérer du texte dans un éditeur de Word en tant que corps de l’élément de courrier, la fonction utilise l’objet Document et l’objetPlage dans le modèle d’objet Word. La fonction utilise la propriété de l’élément GetInspectorpour obtenir l’objet existant Inspecteur, puis utilise la propriétéInspector.WordEditorpour obtenir un objetWord.Document pour l’élément. À l’aide de l’objet Word.Document, la fonction accède à l’objet Word.Range et insère un texte dans le corps de l’élément.

Cet exemple accédant au modèle objet Word, vous devez d’abord ajouter une référence à la Bibliothèque d’objets Microsoft Word pour compiler l’exemple correctement.

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

Voir aussi

Objet MailItem

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.