Méthode Inspector.SetControlItemProperty (Outlook)
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
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.