Evento Explorer.BeforeFolderSwitch (Outlook)
Ocorre antes que o explorer vá para uma nova pasta, como resultado de uma ação do usuário ou de um código de programa.
Sintaxe
expression. BeforeFolderSwitch( _NewFolder_ , _Cancel_ )
Expressão Uma variável que representa um objeto Explorer .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| NewFolder | Obrigatório | Object | O objeto Folder o explorer está alternando. |
| Cancel | Obrigatório | Boolean | False quando o evento ocorre. Se o procedimento de evento define este argumento como True, navegação será cancelada e a pasta atual não será alterada. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Se a pasta para a qual está sendo alternada estiver em um namespace que não dá suporte à automação (como o sistema de arquivos), NewFolder não será Nada.
Exemplo
Esse exemplo impede que um usuário alterne para uma pasta chamada "Fora dos Limites". O código de exemplo deve ser colocado em um módulo de classe como ThisOutlookSession, e a Initialize_handler rotina deve ser chamada antes que o procedimento de evento possa ser chamado pelo Microsoft Outlook. Para executar esse exemplo sem erros, verifique se existe uma pasta com o nome 'Fora dos Limites' na pasta exibida no gerenciador ativo.
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
If NewFolder.Name = "Off Limits" Then
MsgBox "You don't have permission to access this folder."
Cancel = True
End If
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.