Méthode Inspector.SetControlItemProperty (Outlook)

Liez une propriété intégrée ou une propriété personnalisée à un contrôle dans un inspecteur.

Syntaxe

expression. SetControlItemProperty( _Control_ , _PropertyName_ )

expression Variable qui représente un objet Inspecteur .

Paramètres

Remarques

Utilisez cette méthode pour lier une propriété intégrée explicite ou une propriété personnalisée à un contrôle. Vous devez référencer la propriété par son nom de chaîne, par exemple, Subject, et non par espace de noms, par exemple, https://schemas.microsoft.com/mapi/proptag/0x0037001E.

Le paramètre PropertyName n’est pas sensible à la casse. Par exemple, SetControlItemProperty interprète un argument, CustomerId, comme étant identique à CustomerID et lie le contrôle spécifié à la propriété ContactItem.CustomerID intégrée.

Vous pouvez également utiliser la ligne de code myPage.Controls("bar").ItemProperty = "subject" suivante pour lier la propriété Subject à un contrôle. Toutefois, notez que le code non approuvé qui l’utilise déclenche un avertissement de sécurité si la propriété est protégée par l’agent de sécurité du modèle objet tel que To et que l’ordinateur client exécute Microsoft Office Outlook 2007 ou une version ultérieure, mais ne dispose pas d’un logiciel antivirus correctement configuré. Utilisez la méthode SetControlItemProperty pour éviter les avertissements de sécurité avec les applications approuvées.

Exemple

Le code Visual Basic pour Applications (VBA) suivant ajoute une page personnalisée à un élément de rendez-vous, ajoute un contrôle de zone de texte personnalisé et lie ce contrôle à la propriété Sujet .

Sub Example() 
 Dim myIns As Outlook.Inspector 
 Dim myAppt As Outlook.AppointmentItem 
 Dim ctrl As Object 
 Dim ctrls As Object 
 Dim myPages As Outlook.Pages 
 Dim myPage As Object 
 
 Set myAppt = Application.CreateItem(olAppointmentItem) 
 Set myIns = myAppt.GetInspector 
 
 Set myPages = myIns.ModifiedFormPages 
 Set myPage = myPages.Add("New Page") 
 myIns.ShowFormPage ("New Page") 
 Set ctrls = myPage.Controls 
 Set ctrl = ctrls.Add("Forms.TextBox.1") 
 
 myIns.SetControlItemProperty ctrl, "Subject" 
 
 myAppt.Display 
End Sub

Voir aussi

Inspecteur Objet

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.