Evento Explorer.BeforeViewSwitch (Outlook)
Ocorre antes de o gerenciador ser alterado para um novo modo de exibição, como resultado de uma ação do usuário ou de um código de programa.
Sintaxe
expression. BeforeViewSwitch( _NewView_ , _Cancel_ )
Expressão Uma variável que representa um objeto Explorer .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| NewView | Obrigatório | Variant | O nome do modo de exibição para o qual o explorer está alternando. |
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a opção será cancelada e o modo de exibição atual não será alterado. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Esse exemplo do Microsoft Visual Basic for Applications (VBA) confirma que o usuário deseja alternar entre os modos de exibição e cancela a opção de alternar caso o usuário responda Não. O código de exemplo deve ser colocado em um módulo de classe e a rotina Initialize_handler deve ser chamada para que o Microsoft Outlook chame o procedimento de evento.
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeViewSwitch(ByVal NewView As Variant, Cancel As Boolean)
Dim Prompt As String
Prompt = "Are you sure you want to switch to the " & NewView & " view?"
If MsgBox(Prompt, vbYesNo + vbQuestion) = vbNo Then Cancel = True
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.