次の方法で共有


Explorer.BeforeViewSwitch イベント (Outlook)

ユーザーの操作またはプログラムのコードによってエクスプローラーが新しいビューに切り替わる前に発生します。

構文

expression. BeforeViewSwitch( _NewView_ , _Cancel_ )

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

パラメーター

名前 必須 / オプション データ型 説明
NewView 必須 バリアント型 (Variant) エクスプローラーが切り替える新しいビューの名前です。
Cancel 必須 Boolean False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合は、スイッチがキャンセルされ、現在のビューは変更されません。

注釈

このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

この Microsoft Visual Basic for Applications (VBA) の例では、ユーザーがビューを切り替えたいことを確認し、ユーザーが [いいえ] と答えた場合に切り替えを取り消します。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

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

関連項目

Explorer オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。