次の方法で共有


Explorer.ViewSwitch イベント (Outlook)

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

構文

ViewSwitch

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

注釈

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

このVisual Basic for Applications (VBA) の例では、ユーザーが AutoPreview ビューを使用してメッセージに切り替えたときにプレビュー ウィンドウが表示されない場合は非表示になります。 サンプル コードをクラス モジュールに配置する必要があり、 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 のサポートおよびフィードバックを参照してください。