Méthode Inspector.SetControlItemProperty (Outlook)

  • Article

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

Parameters

Nom Requis/Facultatif Type de données Description
Contrôle Obligatoire Object Contrôle qui sera lié à une propriété.
PropertyName Obligatoire String Nom de la propriété qui sera liée au contrôle.

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 ne respecte pas 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é utilisant ce fichier 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 À et que l’ordinateur client exécute Microsoft Office Outlook 2007 ou version ultérieure, mais n’a pas de logiciel antivirus correctement configuré. Utilisez la méthode SetControlItemProperty pour éviter les avertissements de sécurité avec des 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é Subject .

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

Objet Inspector

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.