共用方式為

Explorer.BeforeFolderSwitch 事件 (Outlook)

  • 發行項

因為使用者動作或透過程式碼的關係，此事件會在瀏覽器移至新資料夾之前發生。

語法

expression。 BeforeFolderSwitch( _NewFolder_ , _Cancel_ )

表達 代表 Explorer 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
NewFolder 必要 Object 檔案總管要切換的 Folder 物件。
Cancel 必要 布林值 False 事件發生時。 如果事件程序將此引數設定為 True，則會取消瀏覽而且不會變更目前資料夾。

註解

Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。

如果要切換至 的資料夾位於不支援自動化 (的命名空間中，例如檔案系統) ， NewFolder 就是 Nothing。

範例

本範例會阻止使用者切換至名為 "Off Limits" 的資料夾。 範例程式碼必須放在類別模組中，例如 ThisOutlookSession ，而且 Initialize_handler 必須先呼叫常式，Microsoft Outlook 才能呼叫事件程序。 為了讓本範例執行無誤，請確認目前檔案總管所顯示的資料夾中，有一個名稱為 'Off Limits' 的資料夾。

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

另請參閱

Explorer 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。