Nota
O acesso a esta página requer autorização. Podes tentar iniciar sessão ou mudar de diretório.
O acesso a esta página requer autorização. Podes tentar mudar de diretório.
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 |
|---|---|---|---|
| NovaPasta | 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 que está a ser mudada estiver num espaço de nomes que não suporta automatização (como o sistema de ficheiros), NewFolder é Nada.
Exemplo
Esse exemplo impede que um usuário alterne para uma pasta chamada "Fora dos Limites". O código de exemplo tem de ser colocado num módulo de classe, como ThisOutlookSession, e a Initialize_handler rotina tem de ser chamada antes de o procedimento do evento poder 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.