次の方法で共有

Explorer.BeforeFolderSwitch イベント (Outlook)

  • [アーティクル]

ユーザーの操作またはプログラムのコードによって、エクスプローラーが新しいフォルダーに移動する前に発生します。

構文

expression. BeforeFolderSwitch( _NewFolder_ , _Cancel_ )

式Explorer オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
NewFolder 必須 オブジェクト型 (Object) フォルダー オブジェクト エクスプ ローラーへの切り替えです。
Cancel 必須 Boolean 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 のサポートおよびフィードバックを参照してください。