エクスプローラー。ViewSwitch イベント (Outlook)

ユーザーの操作またはプログラムのコードによって、エクスプローラーのビューが変更されると発生します。

構文

expression。 ViewSwitch

式エクスプローラー オブジェクトを表す変数。

注釈

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

例

この Visual Basic for Applications (VBA) の例では、ユーザーが [自動プレビュー付きのメッセージ] ビューに切り替えたときにプレビュー ウィンドウが表示されている場合、プレビュー ウィンドウを非表示にします。 サンプル コードをクラス モジュールに配置する必要があり、 Microsoft Outlookでは、イベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Dim WithEvents myOlExpl As Outlook.Explorer 
 
 
 
Sub Initialize_handler() 
 
 Set myOlExpl = Application.ActiveExplorer 
 
End Sub 
 
 
 
Private Sub myOlExpl_ViewSwitch() 
 
 If myOlExpl.CurrentView = "Messages with AutoPreview" And myOlExpl.IsPaneVisible(olPreview) = True Then 
 
 myOlExpl.ShowPane olPreview, False 
 
 End If 
 
End Sub

関連項目

Explorer オブジェクト

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

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

  • Last updated on