Événement Application.OptionsPagesAdd (Outlook)
Se produit chaque fois que l’utilisateur clique sur le bouton Options du complément sous l’onglet Compléments de la boîte de dialogue Options d’Outlook.
Syntaxe
expression. OptionsPagesAdd( _Pages_ , _Folder_ )
expression Variable qui représente un objet « Application ».
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Pages | Requis | PropertyPages | Collection des pages de propriétés qui ont été ajoutées à la boîte de dialogue. Cette collection ne comprend que les pages de propriétés personnalisées. Il n’inclut pas les pages de propriétés Microsoft Outlook standard. |
| Folder | Requis | PropertyPages | Cet argument est utilisé uniquement avec l’objet Folder . Objet Folder pour lequel la boîte de dialogue Propriétés est ouverte. |
Remarques
Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).
Votre programme gère cet événement pour ajouter une page de propriétés personnalisée. La page de propriétés sera ajoutée à la boîte de dialogue Options. Lorsque l’événement se déclenche, l’objet de collection PropertyPages identifié par Pages contient les pages de propriétés qui ont été ajoutées avant l’appel du gestionnaire d’événements. Pour ajouter votre page de propriétés à la collection, utilisez la méthode Add de la collection PropertyPages avant de quitter le gestionnaire d’événements.
Exemple
Cet exemple Microsoft Visual Basic pour Applications (VBA) montre comment ajouter une nouvelle page de propriétés à la boîte de dialogue Options d’Outlook. L’exemple de code doit être placé dans un module de classe d’un complément COM (Component Object Model). Pour plus d’informations sur les compléments COM, voir Personnalisation d’Outlook à l’aide de compléments COM.
Implements IDTExtensibility2
Private WithEvents OutlApp As Outlook.Application
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set OutlApp = Outlook.Application
End Sub
Private Sub OutlApp_OptionsPagesAdd(ByVal Pages As Outlook.PropertyPages)
Pages.Add "PPE.SimplePage", "Simple Page"
'PPE.SimplePage is a ProgID of the registered ActiveX Control - the property page that is to be displayed in the COM add-in
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.