Evento Application.OptionsPagesAdd (Outlook)
Ocorre sempre que o usuário clica no botão Opções de Suplemento na guia Suplementos da caixa de diálogo Opções do Outlook.
Sintaxe
expression. OptionsPagesAdd( _Pages_ , _Folder_ )
expressão Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Pages | Obrigatório | Propertypages | A coleção de páginas de propriedade adicionada à caixa de diálogo. Essa coleção inclui apenas páginas de propriedade personalizadas. Ela não inclui páginas de propriedade padrão do Microsoft Outlook. |
| Folder | Obrigatório | Propertypages | Este argumento é usado apenas com o objeto Folder. O objeto de pasta para a qual está sendo aberta a caixa de diálogo de Propriedades. |
Comentários
Esse evento não está disponível no VBScript (Microsoft Visual Basic Scripting Edition).
Seu programa manipula esse evento para adicionar uma página de propriedades personalizada. A página de propriedade será adicionada à caixa de diálogo Opções. Quando o evento é acionado, o objeto da coleção PropertyPages identificado pela Pages contém as páginas de propriedades que foram adicionadas antes do manipulador de eventos está sendo chamado. Para adicionar sua página de propriedades à coleção, use o método Add da coleção PropertyPages antes de sair do manipulador de eventos.
Exemplo
Este exemplo do VBA (Microsoft Visual Basic for Applications) adiciona uma nova página de propriedades à caixa de diálogo Opções do Outlook. O código de exemplo deve ser colocado em um módulo de classe de um suplemento COM (Component Object Model). Para obter informações sobre suplementos COM, consulte Personalizando o Outlook usando suplementos 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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.